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GUIDE TO THE EFFECTIVE USE 
OF THIS MANUAL 


This manual describes the ALGOL language as defined for use in preparing 
programs for the General Electric 625/635 computer system. Thus, the 
instruction forms, procedures, rules, etc. are those which are accept- 


able to the ALGOL compiler prepared for that computer system. 


This is a reference manual for programmers. It is not intended to be 
a primer or introductory exposition on how to write computer programs 
in general or on the ALGOL language in particular. It may be used to 
learn the language; however, this would presuppose that the user is 

familiar with the basic machine and language-independent principles of 


computer programming. 


Chapter I provides a definition and discussion of ALGOL. This 
includes a presentation of techniques and a detailed description 


of a sample ALGOL program. 
Chapter II contains definitions of the elements of ALGOL. 


Chapters III, IV, V, VI, and VII describe the various ALGOL 


statements and declarations. 


Certain conventions have been used in preparing this manual's text. 
The ALGOL language itself has been differentiated from its descriptive 
prose by the use of two type styles. Thus, ALGOL appears in manifold 


while the prose appears in italics. 
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ALGOL is characterized by having relatively few distinct instructions* 
(stabenents and declarations) in comparison with other compiler 
languages (e.g., FORTRAN). The power of the language derives from its 
great flexibility in allowing many variations of each instruction 


form. 


Traditionally, ALGOL manuals have dwelled upon the generalized forms 

of each instruction in the language repertoire after having presented 
definitions of terms, concepts, etc. The various derivable forms of 
the instructions which the user needs to implement an application were 
learned by inference in the remaining test, and through examples. Much 


was learned “on the computer". 


This manual overcomes the problem of providing insight into the 
variations possible with each instruction. It presents each as a 
series of variations proceeding from the simplest to the most complex 
forms, thus providing the user with a wider insight into its utili- 


zation possibilities. 


Each variation is presented as though it were a separate and distinct 
instruction in the ALGOL language. Each set of such variations is 
proceeded by a title page containing the generally accepted name 
attached to the forms included. Finally, each instruction (or variation) 


starts on a new page and is appropriately labelled on an upper corner. 


It is of interest to note that Chapter III contains the list of 


instructions discussed in the text. 


*The word instruction has been avoided in the remainder of this manual. 
This has been done because it conflicts with the notion of statement 


and declaration as used in ALGOL. 
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These do not have generally accepted ALGOL names since, as discussed 
earlier, they are variations derived from those which do. The list 
contains the form of each instruction to be encountered in the text 


as well as a reference to the page on which it can be found. 
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I, INTRODUCTION 


DEFINITION AND STRUCTURE OF THE ALGOL LANGUAGE 


Definttton 
ALGOL ts .an acronym for ALGOrithmic Language. The word "algorithm, " 
as used here, implies ALGOL's unique capability as a tool for 


expressing problem solutions as efftetent and precise procedures. 
ALGOL ts a language in whtch computer programs may be written. 


ALGOL ts a set of symbols and a set of rules. Assoctated wtth these 
are a set of definitions whtch are pecultar to a deseription of the 


language, its form and use. 


There ts a computer program assoctated with the ALGOL language. 
Thts program ts called the "ALGOL compiler." All programs written 
in the ALGOL Language must be processed by the ALGOL compiler prior 


to thetr execution as object programs. 


Preparing a problem solutton using the ALGOL language thus implies 
understanding the form and use of the language repertotre descrtbed 
tn this manual. In addition, an ALGOL comptler for translatton of 
the source coding (t.e., the ALGOL program produced by the user of 
the language) into machine coding (i.e., the language of the computer 
ttself) must be available. 


This manual does not discuss the ALGOL compiler as prepared for the 


General Eleetrte 625/635. Thts ts documented tn other manuals. 


There ts, however, a procedure whtch must be followed by the programmer 


in preparing an ALGOL program for processing by the ALGOL compiler. 
This tneludes organization of the source program, the preparation of 
control records for achteving various compiler opttons, etc. 


Appendix 4 of this manual presents this procedure. 


Structure 

The structure of ALGOL ta distinct from the structure of programs 
written in the ALGOL language. This sectton discusses the former 
whtle Section I B, How To Write An ALGOL Program, discusses the 
latter. 


ALGOL ts composed of statements and declarattons. 


Statements are used to spectfy operattons to be performed by the 


computer tn solving a problem. 


Declarations provide the ALGOL comptler with information needed to 
define and link together vartous elements of the computer program 
during processing. In addition, the extetence of declarations within 


the language facilitates the definition of program parameters. 


The statements and declaratione are composed of symbols. Note that 
some ALGOL symbols might conventtonally be termed "character strings"; 
however, the definition of a symbol in ALGOL does not imply a single 
character. Also, certain symbols are enclosed in apostrophes. 

These apostrophes are a part of the symbol and must always appear 
when the symbol ts used. 


Baste Symbols 
a) letters -~-ABCDEFGHIVUVKLMNOPQRSTUVWXYZ 


letters are used for forming tdentifiers and strings. 


b) dtgite -01234%56789 
digtta are used for forming numbers, identifiers and strings. 


ce) logical values - 'TRUE' ‘FALSE! 


d) arithmetic operators 


symbol | definition 
+ addition 
- subtraction 
. | multiplication 
/ diviston 
o 5 division 
+ exponenttation 


e) relattonal operators 


symbol definitton* 
ths! | less than (<) 
"LO! less than or equal to (<) 
'EQ' equal to (=) 
"GQ' greater than or equal to (2) 
"GR! | greater than (>) 
"NQh not equal to (#) 


f) logical operators 


symbol definitton* 
"EQV' equivalent (=) 
"TMP! tmpltes (3) 
"OR! or (A) 

"AND! | and (V) 

"NOT! negation (7) 


g) punctuation - the following symbols have definite functions in 
the ALGOL language 


* The symbols shown in this colum are not available to the user 
for coding. They are included to show the mathematical meaning 
of the corresponding ALGOL symbol. 


at ONY OTN ON 


Note: Stgntficant blanks are denoted by ~ in the text of thts manual. 


definition 

pertod 

comma 

colon 

semtcoton 

left parenthesis 
right parenthests 
left bracket } 
rtght bracket 

left string quote 
right string quote } 
apostrophe 

arrow 


blank space 


use 

decimal point tn numbers 
separator for ttems in a list 
separator for statement label 
separator for statements 

enclose parameter lists; indicate 


expresston evaluation 


enclose subscripts 


enclose strings 


tndteate exponent 
asstgnment operator 


space within strings 


h) ALGOL words - these words have a fixed meaning tn the ALGOL 


Language 


"ARRAY! 
"BEGIN' 
"BOOLEAN' 
"CODE' 
"COMMENT' 
'po! 
‘ELSE 
"END! 
"EXTENDED REAL' 
"FOR! 
"GOTO! 
‘TF! 
"INTEGER' 


"LABEL' 
"NONLOCAL' 
"OWN! 
"PROCEDURE ' 
"REAL' 
"RENAME ' 
"STEP! 
"STRING! 
"SWITCH' 
"THEN! 
"UNTIL 
"VALUE ' 
"WHILE! 


There are six types of statements available in ALGOL. Thetr names 


and a brief description of thetr functtons follow: 


Name 


Asstgnment 


Condittonal 


"FOR! 


"GOTO! 


Procedure 


Statement Types 


Funettons 

To perform calculations 
and to assign a value to 
a variable or a group of 


vartables 


To control the executton 
of individual statements 


or groups of statements 


To satisfy a programming 
protocol (described later) 
but tt in ttself performs 


no operatton 


To tterate a sequence of 


statements 
To transfer control 
To call a previously defined 


sequence of statements 


(2.9.5 a subroutine) 


There are four types of declarations available in ALGOL. Their 


names and a brief description of their funettons follow: 


Name 
"ARRAY! 


"PROCEDURE ' 


SWITCH’ 


Type 


Declaration Types 


Funettons 
To define an array, spectfy 


tts dimensions and tts type 


To define a subset of the 


computer program (é.g., a 


’ subrouttne) 


To spectfy control parameters 
whteh govern the sequence of 


program executton 


To spectfy the kind of value 
which a vartable ts to 


represent 


There are many rules of protocol tn wrtting an ALGOL statement or 


declaratton. The major part of thts manual discusses these. 


The ALGOL language ts structured in such a way as to tmpose rules 


of combining statements and segregating these as programs or 


subprograms in their own right. 


These concepts are presented in 


the sectton entitled, "COMPOUND STATEMENTS AND BLOCKS." 


ALGOL does not contain statements which allow direct control of 
the tnput/output process. Thus, no statements or declarattons 
exist for reading from or writting on external devices (e.g., 
READ, WRITE, etc., in FORTRAN). To accomplish the usual tnput/ 
output operations, procedures are provided whtch may be "called" 
by the user as subroutines. These procedures are described in 
detatl in the section entitled, "INPUT /OUTPUT. us 


HOW TO WRITE AN ALGOL PROGRAM 


The writting of any computer program presupposes an understanding 
of the problem to be solved and the selectton of a programming 
language. Assuming these condittons to be satisfied, the following 
constderattons are presented as a gutde in the writing of ALGOL 


programs. 


Form of an ALGOL Program 


ALGOL programs are divided into logical sections called blocks. 
The enttre program ts also a block and must be enclosed within 
the symbols ‘BEGIN' and 'END'. A block may contain any number 
of sub-blocks wtthtn tt. 


Vartables, arrays, procedures and switches whitch are used in a 
block are defined tn declarations at the beginning of the block. 
These declarattons are followed by the statements of the block. 
Any statement of a block may in itself be a block (t.e. tt must 
have block format as descrtbed tn Sectton VI) and thus blocks 


may be nested to any depth. 


All ALGOL statements may be labelled with one or more statement 
labels, t.e. simple statements, compound statements and blocks 
may be labelled. 


Executton of an ALGOL program starts with the first statement 
and continues successtvely from statement to statement. However, 
certain statements tn the language have the power to change the 


sequence of statement execution. 


Execution of the program ts terminated when control reaches the 


"END' symbol of the outermost block of the program. 


The following diagram is given to suggest visually the structure 
of a typtcal (though arbitrary) ALGOL program. Each bracket 
denoted ee represents a block. 

"END! 
The blocks are composed of declarations and statements (as dis- 


eussed above). The declarations must precede the statements. 


"BEGIN! 
"BEGIN' 
'END! x declarations 
. statements 
“_'END! 


"END! 


Note that thts diagram represents an ALGOL program with three 
block levels and four blocks. 


- 10 - 


Writing Rules and Techniques 
The ALGOL program may be wrttten on coding forms destgned 


spectftcally to handle the language. 


Columns 1-72 of the coding form may be used for ALGOL state- 


ments and declarattons. 
The ALGOL code may appear anywhere within these columns. 


The coding may appear in a completely free form. That is, 
any number of statements and/or declarations may appear on 


a stngle ltne. 


A single statement or declaration may occupy as many lines 


as ts destred. 


Blanks may be used freely throughout the ALGOL code to tmprove 
the readability of the text. The only place tn ALGOL in which 
blanks are stgntficant ts in strings. In all other instances 


they are disregarded by the comptler. 


Stnee the line format of ALGOL programs is very flextble it 
is suggested that statement levels be indented on a new line 


to improve ease of reading and understanding a program. 


Thus each new 'BEGIN' symbol may be tndented at a new margin, 
and the 'END' corresponding to the 'BEGIN' may be placed at 
the same margin. Also, since statements may contain other 
statements, each lower statement level may be indented. When 
a higher level ts resumed later on, statements for that level 
may be placed at the proper level margin (see form of the 
example gtven tn Sectton I. C.). 


et Ee 


It must be noted that these are merely suggesttons which may 
be tneorporated tn order to make the program structure easy 
to follow. However, line indenting will in no way affect 


program execution, 


Punetuatton 
When writing ALGOL statements and declarations there are two 


tmportant rules of punetuatton whtch must be employed. 


Rule 1. The symbol ; ts used between statements and between 
declarations. However, the semi-colon may be omitted 
after the last simple statement of a compound state- 
ment or block. The symbol ‘END' serves as a state- 
ment separator in thts case. 

Examp les 
1. A€2; 'GOTO' Z 


2. 'BEGIN' 'INTEGER' A; 'REAL' B; 
At5.3; B+7.2 'END! 


Rule 2. The symbol : ts used to separate a statement label from 
a statement. 
Examp les 
1. Li AtBt+C; P: 'GOTO' R 


2. 7: "BEGIN' I+I+1; J+«J+1 'END' 


ie RO 1s 


Comments 
If tt ts destred to place comments wtthin the text of an ALGOL 
program, tt may be done as follows: 
To tnsert a comment between statements or declarations, 
or at the beginning of a compound statement or a block, 
the comment must be enclosed wtthin the symbols 'COMMENT' 
and ; 
Examples 
1. A+B; 'COMMENT' COMPUTING C; C<A 


2, '"BEGIN' 'COMMENT' COMPUTING C; 
A<B; C+A ‘END! 


To place a comment after a compound statement or a block 
(t.e., after the symbol 'END') the symbol 'COMMENT' 7s 
not necessary. A semi-colon must be used after the text 
tf an 'END' or 'ELSE' symbol does not appear. 
Examples 
1. 'BEGIN' A<B; C+«A 'END! 

COMPUTING D; 

D<C 


2. 'IF' A 'LS' B 'THEN! 
'BEGIN' AB; C+A 'END! 
COMPUTING C D IF ALS B 
'ELSE' BeA 


Study of the examples provided with the detatled descripttons 
of the ALGOL statements and declarations tn Chapters IV and V 
should atd tn the understanding of how ALGOL statements are 
formed, punctuated, etc. 


eee 


EXAMPLE OF AN ALGOL PROGRAM 
This sectton contains a sample ALGOL Program. 


The purpose of the program is to merge two sets of numbers. ‘The 
two sets are contained tn Llocattons a(1), a(2),...,a(t),..., a(n) 
and b(1), b(2),...,b(g),...,b(m). The numbers in each set are 
assumed to be arranged in inereasing order. The merged set ts 


contained tn locations c(1), cl2)y...y C(k),... .« 


The program operates as follows. The elements of arrays a and b 
are compared. At each comparison, the smaller element ts put tnto 
the result array ec. When the end of etther array a or b ts reached, 
any remaining elements in the other array are put into the result 


array. 
Symbols used tn the program: 


Symbol Desertption 
A Identifier of input array 


Identtfier of tnput array 
Identifter of output array 
Subsertpt bound for array A 
Subsertpt bound for array B 
Subsertpt bound for array C 
Subseript for array A 
Subsertpt for array B 
Subsertpt for array C 
Controlled variable of 'FOR' 


statement 


VR WH wD SF Fay 


A listing of the program follows. The program is assumed to be a 
block contatned in a larger block wherein the value of N, M and R 


are assigned, and wherein P is defined. 


was PPE gat 
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Program 


'BEGIN' 'ARRAY' A[1:N], B[1:M], C[1:R]; 'INTEGER' I, J, K; 
I<J<K«1 ; 
START: 'IF' I 'GR' N "THEN! 
'BEGIN' P<0; Q: C[K+P]+B[U+P]; P<P+1; 'IF' P 'LQ' M-J "THEN! 
TELSE' 'IF' J 'GR' M 'THEN' | 
"BEGIN! P<0; S: C[K+P]+A[I+P]; P<P+1; 'IF' P 'LQ' N-Il "THEN! 
'ELSE' 'BEGIN! 
TE" ATT] '6Q' BIJ] 'THEN! 
'BEGIN' C[K]<B[U]; J<u+1 "END! 
'ELSE' 'BEGIN' C[K]<A[I]; I<I+1 'END!; 
K«K+1; 'GO TO' START 
"END! 
"END! 


A line by line deseriptton of this program appears on the following pages. 


'GO TO' Q "END! 


'GO TO! 


S 


"END! 


Line 


100 
110 
120 
130 
140 
150 
160 
170 
180 - 
190 
200 
210 
220 


Line 
100 


110 


120 


130 


140 


150 


160 


Desertption 
Contains ‘BEGIN! for the block, and declarations of 


vartables used. 


Contains an asstgnment statement whtch sets I, J and 
K to the value 1. 


Contains statement label "START" and the begtnning 

of a condtttonal statement whitch extends to line 210. 
The 'IF' elause checks whether all of the elements of 
array A have been compared. 


Contains the true branch of the 'IF' elause of line 
120, The true branch ts a compound statement which 
moves the rematning elements, tf any, of array B to 


array C. 


_ Contains the start of the false branch of the 'IF' 


elause of line 120. The false branch extends to line 
210. The 'IF' elause in thts line checks whether all 
of the elements of array B have been compared. 


Contains the true branch of the 'IF' clause of line 
140, The true branch ts a compound statement which 


moves the remaining elements of array A to array C. 


Contains the start of the false branch of the 'IF' 
elause of line 140. The false branch ts a compound 
statement enclosed within 'BEGIN' and ‘END! and extends 
to line 210. | 


eee 


Line 
170 


180 


190 


200 


210 


220 


Contains an 'IF' clause which compares elements of 


arrays A and B. 


Contains the true branch of the 'IF' elause of line 
170, The true branch ts a compound statement whtch 
moves an element of array B to array C and then updates 


the B array subsertpt, J. 


Contatns the false branch of the 'IF' clause of line 
170. The false branch ts a compound statement whitch 
moves an element of array A to array C and then updates 


the A array subscript, I. 
Contains an asstgnment statement to update the C array 
subsertpt, K, and a 'GOTO' statement to transfer control 


to the statement labelled "START." 


Contains 'END' for the compound statement starting on 
line 160. 


Contains 'END' for the block starting on ltne 100. 


The strueture of the conditional statement of the program ts shown 


tn Ftgure 1. 


If the condition of line 120 ts true, the true branch, line 130, 


ta taken and subsequent control goes to line 210, t.e. the false 


branch ts skipped. If the condition of line 120 ts false, control 


goes to the false branch, line 140. 
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If the conditton of line 140 ts true, the true branch, line 1650, 
ts taken and subsequent control goes to line 210, t.e. the false 
branch ts skipped. If the condttion of line 140 ts false, control 
goes to the false branch, ltne 160. 


If the condition of line 170 ts true, the true branch, line 180, 
ts taken and subsequent control goes to line 210, t.e.. the false 
branch ts skipped. If the condition of line 170 ts false, control 
goes to the false branch, line 190. | 


START: 'IF' . . . "THEN! 120 
| 130 
"ELSES sos TIF’... ' THEN! 140 
| 150 
TELSE'—  'IF' . . . ' THEN! 160-170 
| 180 
'ELSE! 190 
200 
210 


Figure 1. Outline of Condittonal Statement 
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IT. DEFINITIONS 


Piao ee 


1. tdentifier: A name given to a variable, an array, a label, 
a swttch, a procedure. The name may be composed 
of any nunber of letters and digits. However, 


the name must begin with a letter. 


Example: 
A, BETA, M12, T12C7, TOTALAMOUNT 


Blanks are not constdered significant tn ALGOL 
except in strings, and they may be used freely 


within tdenttfters. 


_ Example: 
AB LE ts considered the same identifter as 
ABLE or ABL E. | 


Two different quantities may not have the same 
tdenttfier unless they appear tn different 
blocks. (See the sectton COMPOUND STATEMENTS 
AND BLOCKS for clarification.) Certain tdent- 
tfters are reserved for standard procedures 

by the ALGOL compiler. (See the list of 


reserved tdenttfters in Appendix 1.) 
2. number: _ Integer, real number, extended real number, 


3, tnteger: A whole number written without a decimal point 
conststing of 1 to 11 decimal digits. The range 


of an integer n ts: 


- 20 —- 


3. tnteger: 


4, 


(eontd) 


real number: 


99 <n< 9° 1 


The prectston ts to 10 dectmal digits. 


Postttve tntegers may have no stgn or may 
be preceded by a plus sign. Negative integers 


must be preceded by a minus sign. 


Example: 
0,-452,+7586421, 33 


A sertes of from 1 to 9 dectmal digtts written 
wtth or without a dectmal point. If the decimal 


potnt appears tt must not be the last character. 


An exponent part may be added to spectfy the 
tntegral power of 10 to whtch the number must 
be ratsed. The exponent part ts separated from 
the digtts by an apostrophe ('). The exponent 


may also appear alone. 


The range of a real number n ts: 


218? cy « 2l8? 


The precitston ts to 8 dectmal digits. Posttive 
real numbers do not require a stgn. However, 
a plus sign ts permitted. Negattve real numbers 


requtre a mtnus sign. 


Example: 
15.7, —.0045, +25.0, 1.7'-3, 5'3 


J. Dy 


oe 


6. 


extended 


real number: 


string: 


A sertes of from 1 to 19 decimal digits written 
with or without a dectmal point, If the dectmal 
potnt appears tt may not be the last character. 


An exponent part may be added to specify the 
integral power of 10 to which the number must 
be ratsed. 


The exponent part may also appear atone. 


The range of an extended real number ts: 


2187 oy < gi? 


The prectsion ts to 18 decimal digits. 


Posttive extended real numbers do not requtre 
astgn. However a plus stgn ts permitted. 


Negative extended real numbers require a minus 


sign. 


Example: 
135982.7834, 21,.762'-19 


A sequence of baste symbols enclosed in the 
left and right string quotes (" and\); or 
a sequence of baste symbols and strings 


enclosed in the string quotes. 


Strings may be used as actual parameters of 
procedures. 


gt 0. 


6, string: Examples of strings: 


(contd) "A BC\ 
| "AB" CDE\FG\ 
7. vartable: A quantity referred to by a name (the variable 


tdenttfier) whose value may be changed. 


The kind of quantity a vartable may represent 
ts determined by a type declaration and may be 


etther integer, real, extended real or Boolean. 


Example: 
X, ABC, YZ5N, 
THIS IS A VARIABLE 


8. subseripted A subsertpted vartable has the form A[Djsbo5+++sb] 
vartable: where a ts an array tdenttfter and Disdos+++5b 


are artthmetic expresstons. 


The number of subscripts n must be the same as 


the number of dimensions declared for a. 


Each subscript b, acts ltke a vartable of type 
"INTEGER! and the evaluation of the subscript 
ts understood to be equivalent to an asstgnment 
to thts integer vartable. 


ar Oe 


8. subscripted Evaluation of subscripts within a subscript 
| vartable: list proceeds from left to right. The value 
(eontd) — of the subscripted variable is defined only 
tf the value of each subsertpt expression is 

within the subsertpt bounds of the array. 


Example: | 
AB[1,3], BOY[tIF' B 'EQ' C 'THEN' 1 'ELSE' 2] 


9. simple A sequence of numbers, variables, subseripted 
arithmetic vartables or funetion calls separated by arith- 
expression: mette operators and parentheses, whitch represents 


a rule for computing a numerical value. 


Rules: 

1. All quantities used in an arithmetic expres- 
ston must be of type real, extended real or 
integer. 


2. For operators +, - or *, the result of caleu- 
latton wtll be integer tf both operands are 
integer; real tf both operands are real; and 
extended real for all other cases. 


3. There are 2 operators whtch denote divtston 
/ and %. Both are defined for all combina- 
ttons of real, extended real and integer 


quantittes, however, 


a) /wtll give a result of type real only 
tf both operands are real. In all other 
eases the result will be of type extended 
real. 


-~ 2h . 


9. stmple b) % will gtve the same results as / 


arithmette except that the value wtll always be 
expression: tntegral. The result ts truncated 
(contd) not rounded to an tnteger, t.e. 
5432 1, 


4, Exponenttatton - 
b 


a) atrbte ts equtvalent to (a I 
b) The types of the base and the exponent 
may be any combtnatton of real, extended 


real, and tnteger. 


ec) If the exponent ts an integer, the result 


ts as follows: 


exp base result 
same type as base 


same type as base 


operation ts undefined 


real if base ts real, 
otherwise extended real 


operation is undefined 


d) If exponent ts real or extended real 


the result ts as follows: 


2 D5 


9. 


simple 


artthmette 


expresston: 


(eontd) 


exp base . result 


real if base ts real, 
otherwtse extended 


real 
real tf base ts real, 


otherwtse extended 


real 


operatton ts undefined 


operation ts undefined 


Hterarchy of operators - 


1. exponenttation + 


2, multtplteatiton & division * / % 


3. additton & substractiton + - 


Expresstons inside parentheses are evaluated 
first. 


Evaluatton proceeds bastcally from left to 
right within the hterarchy and within 
parentheses. Functton calls and parenthe- 
sized quantities are evaluated from left 


to right. 
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10. 'IF' elquee 'IF' @ 'THEN' Db 'ELSE' e@, where ats a Boolean 
arithmette expresston, b is a simple arithmetic expression, 
expression: and ec ts etther a stmple arithmetic expresston 


or an 'IF' clause artthmetie expresston. 


The 'IF' clause arithemette expresston causes 
one of several arithmetic expresstons to be 
evaluated on the basts of the value of Boolean 


expresstons. 


The expresston to be evaluated ts selected as 

follows: 

a) The Boolean expresstona are evaluated one 
by one in sequence from left to right until 


one having a value 'TRUE' ts found. 


b) The value of the 'IF' clause artthmette ex- 
pression ts the value of the first simple 
aritthmette expresston following thts Boolean 


expresston. 
11. artthmnetic Either a simple arithmetic expression or an "IF! 
expresston: elause arithmette expression. 
12. stmple A sequence of variables, aubsertpted variables, 
Boolean funetion calls and.relattons possibly separated 
expresston: by logteal operators and parentheses, which 


_vepresents a rule for computing a logical value 
(t.e. 'TRUE' or 'FALSE*), 
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12. simple 
Boolean 
expresston: 

(contd) 


Rules: 


2. 


Variables and functtons used with the 
logteal operators must be declared to be 


of type Boolean. . 


A relation ts composed of two arithmetic 
expresstons separated by a relational 


operator. 


Example: 
A-B*“C 'EQ! ZY 


A relatton has a value of 'TRUE' tf the rela- 
tton ts sattsfted otherwise tt has a value 
of 'FALSE'. 


The logical operators are defined as follows: 


a) 'NOT' a ts true or false tf ats false 


or true, respectively. 


b) a 'AND' b tis true if both a and b are 
true, otherwise tt ts false. | 


ec) a'orR' b ts false tf both a and b are 


false, otherwise it ts true. 


d) a ‘Imp! b ts false tf a te true and b 
is false, otherwise it is true. 


e) a 'EQv' bts true tf etther both a and 


b are true or both are false, otherwise 


tt ts false. 


a ee 


12. setmple 5. The hterarchy of operations in evaluating 


Bootean a Boolean expresston ts as follows: 
expresston: 
(eontd) 1. artthmette operators - sane order as 


for arithmette expresstons 


2. relattonal operators 


8. logteal operators 


6. The hierarchy of logteal operators ts: 


1. "NOT! 
2. AND! 
3. OR! 
4, ‘IMP! 
5. 'EQV! 


7. Expresstons tnstde parentheses are evaluated 


first. 

13. '‘IF' clause 'TF' a 'THEN' b 'ELSE' ec, where b ts a simple 
Boolean Boolean expresston and a and ec are etther simple 
expresston: Boolean expressions or ‘'IF' clause Boolean 

expresstons. 


The ‘IF' elause Boolean expresston ts evaluated 
tn the same way as an 'IF' clause artthmette ex- 


presston. 
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14, Boolean Kither a stmple Boolean expression or an 'IF! 


expression: elause Boolean expression. 
15. expresston: Etther an aritthmette expresston or a Boolean 
expresston. 
16. statement An tdenttfter placed before a statement. 
label: 


A statement label must be followed by a colon 
to separate the label from the statement. 


A statement may have more than one label, each 
one followed by a colon. 


Statement labels are used so that a statement 


may be referenced. 
Examples: 
1) AB: A+B; 
2) AC: 'BEGIN' A«C tEND! 
3) AD: 'BEGIN' AE: A+E 'END' 
4) AF: AG: AH: A+t; 


17. swttch swlaj, where sw represents a switch identifier 


designator: and a represents an arithmetic expresston. 
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16. 


19, 


20. 


econdtttonat 


designator: 


destgnattonal 


expresston: 


simple statement: 


A elause of the form 'IF' Db 'THEN' ¢@ 'ELSE' d, 
where b represents a Boolean expresston, ¢c 

may be etther a statement label, a swrtch 
destgnator, or a condittonal destgnator enclosed 
wtthtn parentheses, and d may be etther a state- 
ment label, a swtteh destgnator, or a conditional 
destgnator (whtch need not be enclosed wtthtin 
parentheses). 


A statement label, a swtteh destgnator, or a 


_eondtttonal destgnator. 


A statement which ts not a compound statement 
or a block. 


Examples: 
asstgnment 
eondittonal 
dummy 
'FOR' 

'GO TO' 


procedure 


sy Sd Ae 


LIZ, STATEMENT AND DECLARATION FORMS 


ee ae 


STATEMENT AND DECLARATION FORMS 


A. ASSIGNMENT STATEMENTS 


Name Form 
Asstgnment, simple a1*a5*...*a +e 
, t t t 1 t t t t 
Asstgnment, ‘IF Atay... a IF b, THEN e, ELSE" é, 
clause 
Asstgnment, two A1*ayt.. a et IF! b, "THEN' e, ‘ELSE! 'IF! 
'IF' elaquses b, 'THEN' e, 'ELSE' e 
Z 2 3 
Asstgnment, n A1*A5*.. +a IF! b, "THEN! e, ‘ELSE. "1F* 
t t t t t t t | t t 
IF' elauses by THEN 25 BLSE*. 2g) LE b THEN e, 
' t 
ELSE Ctl 
B. CONDITIONAL STATEMENTS 
Name Form 
Condittonal, stmple 'IF' b 'THEN' s 
Condtttonal, ‘ELSE! TTR DS THEN" 8, "ELSE! So 
Condtttonal, two se ea b, "THEN! Sy fELSE!: SF * by "THEN! 85 
'IF' eLauses 
Condtttonal, two HIE? b, "THEN! 8, fELSE? "IF! by "THEN! 85 
'"IF' clauses, 'ELSE' ‘ELSE’ 8. 
Conditional, n 'IF' eM a by "THEN! 8, LELSE” SIF! be "THEN! 85 
clauses ‘ELSE® ne SIR” DB "THEN' s TELSEY SIF 
n-1 n-1 
b. 'THEN' s 
n n 


Pie ae 


45 


47 


o4 


o6 


o8 


B. CONDITIONAL STATEMENTS (contd) 


Name 
Condtittonal,n ‘IF! 
clauses, ‘ELSE! 

C. DUMMY STATEMENT 

Name 
Dummy 


D, ‘FOR! STATEMENTS 


Name 


'FOR', expression 


"FOR', 'STEP' elause 


"FOR', 'WHILE' clause 


"FOR', general 


E. 'GO TO! STATEMENTS 


Name 
'GO TO', label 


'GO TO', swttch 
destgnator 


'GO TO', condtttonal 
destgnator 


Form 
‘IF! b, "THEN! S, "ELSE! 'IFt be "THEN! S 5 
"ELSE! ... ‘IF! b 'THEN' s 'ELSE' s 
n-1 n-I1 n 
Form 
(null form) 
Form 


'FOR' vee 'DO' gs 
"FOR! v+e, 'STEP! 2p 'UNTIL' ez 'DO' s 
'FOR' vee 'WHILE' Db 'DO' ¢ 


"FOR! V+@1,2o,+-+,a, 'DO' 8 


Form 
'GO TO' a 


'GO TO' sw [a] 


'GO TO' 'IF' BD 'THEN' d, TELSEY a 
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68 


70 


72 


78 


F, PROCEDURE STATEMENT 


Name 


Procedure statement 


G. ‘'ARRAY' DECLARATIONS 


Name 
"ARRAY ! 


'ARRAY', ‘OWN! 


name (a, 


Form 


GO Ee 26% 


9 t a) 


Form 


type "ARRAY ! Aya Loy ervey, 


‘OWN' type 'ARRAY' AysFose0+5G,, 


H. 'PROCEDURE' DECLARATIONS 


Name 
"PROCEDURE' declaratton, 


simp Le 


"PROCEDURE' declaratton, 


spectfication part 


"PROCEDURE' declaratton, 
value and spectfticatton 


part 
"PROCEDURE! declaration, 


funetton definition 


"PROCEDURE' deelaratton, 
separately comptled 


Form 
"PROCEDURE! name (a, t Ay ees 7 as 8 
"PROCEDURE' name (a, ta, t... t as sp 
LUSLS SP 11863 oes3 SD L18bs-s 
' 1 e 
PROCEDURE' name (a, tag t... t a3 


"VALUE' Ziist: ep Tiet; ep list;...3 sp 


ltst; s 
type 'PROCEDURE' name (a, td, t... 
"VALUE' List; sp list; so ltst;...3 : 


sp list; s 


"CODE' 'BEGIN' dj3d,5...3d, ‘END! 


BG oe! 


t as 


92 


97 


100 


108 


2 


'SWITCH' DECLARATION 


Name 
"SWITCH! 


J. 


TYPE DECLARATIONS 


Name 


Type 


Type, 


"OWN! 


Form | Page 

"SWITCH! BU+d15dg5+++5d,, . he 
| Form Page 
PYPE Vix Vosee+aV,, 116 
'OWN' type VisPoreee5P, 118 
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The deseriptton of each statement and declaration in the ALGOL language 
ts presented in the following section. Each starts on a new page with 


the format of its deseriptive material given as shown belou: 


desertpttve name 


PURPOSE: 
(A brief statement of the purpose of the statement 


or declaratton) 


FORM: 
(Form of the statement or declaratton) 
(Definttton of Symbols 
used tn the Form ltne) 
RULES: 
(A list of rules governing the correct usage of the 
statement or declaration; includes restricttons, 
suggesttons, etc.) 
EXAMPLES: 


(A ltst of examples illustrating the use of the state- 


ment or declaration) 
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I 
Ve. STATEMENTS 
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Asstgnment Statements 


=3'59) <= 


Asstgnment, 

aymmn7 Pp 

Lhe veo 

PURPOSE: To perform numertcal calculations; to perform Boolean opera-~ 
ttons; to assign a value to one or more variables or procedure 


tdentifiers in a single statement. 


FORM: ajdt... +e 
AysAoyeeeyG i vartable, subscertpted 
vartable or procedure 
tdenttfrer 
e: artthmette or Boolean 
expresston 
RULES: 


1, This statement causes expression "e" to be evaluated and the 
result to be assigned to A794ys+++9E,. (Note: there need be 


only one variable, é.g., a,te). 


2. The character "«" signifies assignment of the value of the 


expression to the variables. 


3. The process of asstgnment ts as follows: 

a. Subscripts, tf any, occurring tn the variables are evaluated 
from left to right. 

b. The expression "e" ts evaluated. 

ec. The value of the expression ts asstgned to all the vari- 
ables AsAoy2+4,0, from right to left across the left 
stde as follows: The value of e is asstgned to as the 
value of a, ts assigned to a2 ete. Finally, the 


value of a, ts assigned to a,. 


fe ares 


simple (contd) 


4, The types of the vartables must be as follows: 
a. The types may be all Boolean. In this case, the expres- 
ston "e" must be Boolean. 
b. The types may be real, extended real or integer. In 
this case, the expresston "e" must be arithmetic. 


e. Boolean types may not be mtxed wtth the other types. 


5. When "e" ts an arithmette expression and tts type and the 
type of variable a, ts different, the value of "e" ts ehanged 
to the type specified by a, before it ts asstgned to a 
(See Defintttons for forms of integers, real numbers and 


extended real numbers.) 


6, In the case tn which "e" ts real or extended real and a, ts 
an integer, "e" ts operated upon by the funetton ENTIER (e+.5). 
The result of ENTIER ts the largest integer not greater than 


the value of the argument. Thts value is then asstgned to a 


7. When the type of a, and as 4 ts different, the value of a,, 


ts changed before tt ts assigned to a4: 


8, The case of an a, betng a procedure identifier ts only used 
tn defining functions. (See 'PROCEDURE' declaration, funetion 


definttton.) 


EXAMPLES: 
In these examples, A, B, C, and D tdentify 'REAL' type variables. 
Rand S tdentify 'INTEGER' type variables, and W tdentifies a 
"BOOLEAN' type vartable. 
1. A+B+C The value of B+ Cts 
asstgned to A. 


ee 


A«D<B+C 


AcR+3.9 


R+A+3 .9 


J+1; 
S [J ]+JU<2 


W+A 'GR' B 
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Asstgnment, 


eqmntlo leontd) 
wwe ve ee Oe 


The value of B+ Cis 
assigned to A and D, 


4 ts asstgned to R and A. 


3.9 ts asstgned to A and 
4 ts assigned to R. 


First, 1 ts asstgned to Jd. 
Then 2 ts asstgned to J 
and S[7]. 


If the value of A ts greater 
than the value of B, W ts 
asstgned the value 'TRUE' 
otherwise, W ts asstgned 

the value ‘FALSE’. 


PURPOSE: 


FORM: 


RULES: 


EXAMPLES : 
re 


'IF' elause 


To permit a chotce to be made as to which of two expressions 
ts to be evaluated, based on the value of a Boolean expression; 
to asstgn the value of the evaluated expresston to one or more 


vartables or procedure identifiers. 


! t ; f t t t 
AF Ants. + + IF' b "THEN e, ELSE ey 


AisAoyeees,? vartable, subsertpted 
vartable or procedure 
tdenttfter 

b: Boolean expresston 
C1325! arithmette or Boolean 


expresston 


Subsertpts, tf any, occurring tn the variables Aya Fog +005, 
are evaluated from left to right. 


The Boolean expression "b" is evaluated. 


If the value of b ts 'TRUE' expression e, ts evaluated; tf 
'FALSE' e, ts evaluated. 


After e, or é, ts evaluated, thts statement operates as a 


simple asstgnment statement with the evaluated expresston. 


Pe'IF' Q 'LS' 10.0 'THEN' R If Q<10, P recetves the 
"ELSE' S$ + 17.5 value of R, otherwise S 
417.5, 


a WF 4 


Asstgnment, 


'IF' elause (contd) 


A<B<C<+' IF’ D 'THEN' E If Dis true, the value of E 

'OR' F 'ELSE' G 'AND!' H 'OR' F ts assigned to A, B 
and C. Otherwise, the value 
of G 'AND' H ts assigned. 
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'IF' elauses 


PURPOSE: To permtt a choice to be made as to whitch of three expresstons 
ts to be evaluated, based on the values of two Boolean expres- 
stons; to asstgn the value of the evaluated expresston to one 


or more vartables or procedure tdentifiers. 


FORM: ata to. .ta +t TF! b, "THEN! e, 'ELSE' 'IF' b 


1 “2 
"THEN' C5 "ELSE! ez 


2 


AysAoreee5G,? vartable, subseripted 
: vartable or procedure 
tdenttfter 


Boolean expresston 
C132 o3@3! aritthmette or Boolean 
expresston 
RULES: 


1. Subseripts, tf any, occurring in the vartables AyaAny++0 50 
are evaluated from left to right. 


2. The Boolean expression "b," ts evaluated. 


3... F b, ts true, e, ts evaluated; if b, ts false, by ts evaluated. 


1 


4, If bo ts true, 2p ts evaluated; tf by ts false, ez ts evaluated. 


5. After an expression is evaluated thts statement operates as 
a simple asstgnment statement with the evaluated expression. 


oS ic 


Asstgnment, two 


'IF' elauses (contd) 


EXAMPLES: 
1. Re'IF' T 'THEN' B-6.2 ‘ELSE! If T ts true R ts asstgned 
‘IF’ U 'THEN' C-7 'ELSE' D33.5 the value of B-6.2. If T 
ts false and U ts true, 
C-7 ts asstgned to R, Other- 
wise, D%3.5 ts asstgned to R. 
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Asstgnment, n 
'IF' clauses 


PURPOSE: To permtt a choice to be made as to which of a number of 
expresstons ts to be evaluated, based on the value of 
Boolean expressions; to asstgn the value of the evaluated 


expression to one or more vartables or procedure tdentifters. 


FORM: a.«a,«...«a +'IF' Bb. 'THEN' e. 'ELSE' ‘IF! 
12 m 1 1 


b, 'THEN' e, 'ELSE' ... 'IF' BD. 'THEN' e 'ELSE' e 
2 2 n n n+1 


AysAosveeyt variable, subscripted 
vartable or procedure 
tdenttfter 

Disb gsee+sb,: Boolean expression 

C192 osrees@ iat artthmette or Boolean 


expresston 


RULES: 


1. Subseripts, if any, occurring in the variables Aya Foyser5G,, 
are evaluated from left to right. 


2. The Boolean expresstons DisPoseeesd, are evaluated from left 
to right unttl one is found which has a value of ‘TRUE’. 


3. If b, ts found to be true, then e. ts evaluated. 


4, If all the Boolean expressions are false, etl will be 
evaluated. 


5. After step 3 or 4 above, this statement operates as a stmple 


asstgnment statement with the evaluated expresston. 


shy = 


EXAMPLE: 


C+D[4,2,2] + 'IF' B 'OR' E 
5 "ELSE' 'IF' T "THEN! 7.5 


"THEN' 
“ELSE? 
TELSE* 


tIF' A 'LS! 
L 


C 'THEN' G 


ses AOE is 


Asstfnment, n 
'IF' elauses (contd) 


C and D [4,2,2] may be 
assigned the following 
values: 5 tf etther B or 
E ts true; 7.5 tf T ts 
true; the value of G tf 
the value of A ts less 
than the value of C; the 
value of L tf none of the 


above condtttons are true. 


Condittenatl Statements 
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Condtttonal, 
simp le 


PURPOSE: To permit a statement to be executed or skipped depending 


FORM: 


RULES: 


on the value of a Boolean expresston. 
'IF' Bb 'THEN' es 


b: Boolean expresston 
s: statement 


Statement s may be any one of the following: 
a. asstgnment statement 


b. 'GO TO' statement 
e. dummy statement 
a: 'FOR' statement 


é. procedure statement 
f. compound statement 
g. block 


. Statement s may have a label. 


If the Boolean expression has a value of 'TRUE', statement s 
ts executed. If s does not explicitly specify tts successor 
the statement following will be executed next. 


If the Boolean expression has a value of 'FALSE', statement 


s ts skipped and the following statement will be executed 
next. 


= BOs 


EXAMPLES : 
1, ‘IF! A 'GR' B 'THEN' D+EXF 


2. (‘IF' L 'THEN' 'BEGIN! P+P+3; 
R+17.5-T; L<«'FALSE' 'END'; 
'GO TO' S9 


a5 = 


Condittonal, 
simple (eontd) 


If the value of A ts greater 
than the value of B, then 

the value of E*F ts assigned 
to D. Otherwise, the asstgn- 
ment statement ts skipped 
and the statement followtng 


tt ts executed. 


If L ts true the compound 
statement enclosed between 
"BEGIN' and 'END' wtll be 
executed; followed by ‘GO TO' 
S$; tf L ts false only'GO TO! 
39 will be executed. 


PURPOSE: 


FORM: 


RULES: 


If the Boolean expresston has a value of 'TRUE', statement s 


Condittonal, 


ems mom Oo 


To permit a chotce to be made as to whtch one of two spectfied 
statements ts to be executed. The dectston ts based on the 


value of a Boolean expresston. 


MEP Ub: “THEN? S, 'ELSE® 3¢ 


b: Boolean expression 


87985: statement 


The statements 8, and S_ may be any one of the following: 
a.  asstgnment statement 

Ds 'GO TO' statement 

ec. procedure statement 

d.  dumny statement 

@. compound statement 

f. block 


Statement s, may also be a 'FOR' statement. 


Statements s, and s, may be labelled. 


1 
ts executed. IEPf 81 does not explicitly spectfy tts successor, 


then the statement following the condittonal statement ts 


executed next, t.e. 8, 8 sktpped. 


If the Boolean expresston has a value of 'FALSE', statement 
S 5 ts executed. If 85 does not explicttly spectfy tts successor 
the statement following the condittonal statement ts executed 


next. 


S52 


EXAMPLES: 
i. 


'IF' A 'LS' B 'THEN! 
T+T+1 'ELSE' B+B+1; 
'GO TO' 11 | 


'IF' R 'AND' S 'THEN' 'GO TO! 
BOB 'ELSE' JOE: M«N+P; 'GO TO! 
BOB 


= 63% 


Condtttonal, 
TELSE' (eontd) 


If A ts lese than B 

T+T+1 ts executed, followed 
by 'GO TO' Ll, If A ts 
greater than or equal to B, 
B+Bt1 ts executed, followed 
by 'GO TO' LI, 


If the expression ts true, 
control ts transferred to 
the statement labelled BOB; 
tf false, the statement 
labelled JOE ts executed 
and then control goes to 
the statement labelled BOB. 


PURPOSE: 


FORM: 


RULES: 


Conditional, two 


'IF' elauses 


To pernit a chotce to be made as to which of two statements 
ts to be executed or whether netther ts to be executed, 
depending on the values of two Boolean expresstone. 
! t ! t ! t 1? t t t 
IF b, THEN gy ELSE' ‘IF be THEN 85 
bisdo: Boolean expresston 


873855 statement © 


Statements s, and 8, may be any one of the following: 
asstgnment statement 
'GO TO' statement 
dummy statement 


compound statement 


a. 
b 
Cc 
d. procedure statement 
e 
f block 


‘Statement S, may also be a 'FOR' statement. 


Statements s, and 8, may be labelled. 


LF b, has a value of 'TRUE', statement 8, 
8, does not explteitly specify its successor, the statement 


ts executed, IPf 
following the condittonal statement ts executed next. 


If b, has a value of 'FALSE', b, ts evaluated. 


S25 thse. 


Condtttonal, two 


'IF' elauses (contd) 


Gx dF by has a value of 'TRUE', statement So 


So does not explicitly spectfy tts successor, the statement 


ts executed. If 
following the conditional statement is executed next. 


Fie by has a value of 'FALSE', then So ts skipped and the 
statement following the complete conditional statement is 


executed next. 


EXAMPLE: 
"IF' A 'EQ' B 'THEN' MODE CC,D) If A=B, procedure MODE ts 
"ELSE' 'IF' A 'GR' B 'THEN' MEAN executed, followed by R+D*P, 
CT,D); ReD*F Tf AAB but A>B, then proce- 


dure MEAN ts executed followed 
by ReD*F, If A<B, then only 
R«D*F is executed, 


Sa 


PURPOSE: 


FORM: 


RULES: 


Condittonal, two 'IF' 


clauses, ‘ELSE’ 

To permit a choice to be made as to which of three statements 
ts to be executed depending upon the value of two Boolean 
expresstons, 


a a b, 'THEN' 8, "ELSE? STR" Do THEN’ 85 “ELSE S. 


Disbo: Boolean expresston 


8196 5983! statement . 


Statements 81,8, and 8s, may be any one of the following: 
a.  asstgnment statement 

Db; 'GO TO' statement 

e. dummy statement 

d. procedure statement 

eé. compound statement 

f. block 


Statement s, may also be a 'FOR' statement. 


Statements 84985 and Sz may be labelled. 
If b, has a value of 'TRUE', statement 81 ts executed. If 
s, does not explicitly spectfy tts successor, the statement 


following the condtttonal statement ts executed next. 


Lf b, ts false, by ts evaluated. 


S56 


Condittonal, two 'IF' 
' @lauses, 'ELSE' (eontd) 


6. JF be has a value of 'TRUE', statement B 5 ts executed. If 8 5 
does not explicitly specify its successor, the statement 


following the condittonal statement ts executed next. 


7a Af be has a value of 'FALSE', statement 85 ts executed. If 8. 
does not explicitly specify its successor, the statement 
followtng the conditional statement ts executed next. 


EXAMPLE; 
'IF' L 'THEN' 'GO TO' BOY ‘ELSE!’ If L ts true,control goes to 
"IF' R 'GR' S 'THEN' 'BEGIN! the statement labelled BOY; 
AtA+1; CALC CF,10) 'END' 'ELSE' tf L ts false,R ts compared 
'GO TO' CAT; R+R+1 to S; tf R>S,the compound 


statement ts executed followed 
by ReR+1. IPf R<S, control 

goes to the statement labelled 
CAT. 
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PURPOSE: 


FORM: 


RULES: 


Condittonal, n 


ttet AT MIA AA 
at & FUKMO CO 


To permtt a chotce to be made among a number of statements 
as which one should be executed, or whether none ts to be 
executed, depending upon the value of Boolean expressions. 


ae b, "THEN! 8, TELSES SIFt b, "THEN' B 5 SELSE® sas 


t ' ! t , ' ¢f ! ' t 
TRS De og MTHEN 8 og ELSE! SLES B 'THEN ‘ot 


Disdoseresd: 
87989904498! statement 


Boolean expression 


Each statement Bee osnanses may be any one of the following: 
a. asstgnment statement 

b. 'GO TO' statement 

e.  dumny statement 

d. procedure statement 

@. eompound statement 
f 


block 


Statement 8, may be a ‘FOR! statement. 


Statements S198 59+: 


+98, may be. labelled. 

The Boolean expresstons are evaluated in the order DisDoseees 
until one having a value of 'TRUE' ts found. If b, ts true, 
statement s , ts executed. If statement 8, does not explicttly 
specify tts successor, the statement following the conditional 
statement ts executed next. 


If none of the Boolean expressions is true, the statement 


following the complete conditional statement ts executed 
next. 
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TN 


EXAMPLE: 
'IF' M 'THEN' A«A+l "ELSE! 
'TIF' N 'THEN' 'GO TO' R1 ‘ELSE! 
'IF' P 'THEN! | 
'FOR' 141 'STEP' 1 "UNTIL! 10 'DO! 
ALI] «I; L+M 'OR! P 
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Condtttonal, n 


'IF' elauses (contd) 


If Mts true, the value of 
A ts tnereased by 1. If M 
ts false and N ts true, then 
'GO TO' Rl ts executed. If 
M and WN are false and P ts 
true, the 'FOR' statement 

ts executed. If M, N and P 
are all false, the statement 
IxM 'OR' P ts executed. 


PURPOSE: 


FORM: 


RULES: 


Conditional, n ‘IF! 
clauses, ‘ELSE’ 


To permtt a chotce to be made anong a number of statements 
as to which one should be executed depending upon the value 


of Boolean expressions. 


MF! b, "THEN! 8, "ELSE! TIF be “THEN? <@',° ELSE! grey 


2 
TIF! b 'THEN' s 'ELSE' g 
n-1 n-1 n 


bisPose+eab 4! Boolean expresston 


S728 0900058 statement 


Each statement 81989900498, may be any one of the following: 
a. asstgnment statement | 
fox 'GO TO! statement 

ce. dummy statement 

d. procedure statement 

@. compound statement 

f. block 


Statement s may be a 'FOR' statement. 


Statements s +98, may be labelled. 


yo Sg" 
The Boolean expresstons are evaluated tn the order DisDoseees 
unttl one having a value of 'TRUE' ts found, If b, ts true, 
statement s ts executed. If statement sy does not explticttly 
spectfy its successor, the statement following the complete 


condittonal statement ts executed next. 
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Condittonal, n 'IF' 
elquses, 'ELSE' (contd) 


5. If none of the Boolean expressions ts true, statement s 
wtll be executed. If tt does not explicttly spectfy tts 
successor, the statement following the condittonal state- 


ment ts executed next. 


EXAMPLE: 
'TIF' A 'THEN' I+I+1 ‘ELSE! If A ts true, the value of 
'TF' B 'THEN' deJ+1l 'ELSE' I ts tnereased by one. If 
"IF' C 'THEN' K«K+1 'ELSE! A ts false and B ts true, 
L+L+1; the value of J ts tnereased 
'IF' D 'THEN' 'GO TO' BAD by one. If A and B are false 


and C ts true, the value of 
K ts tnereased by one. If 
A, B and C are false, the 
value of L ts inereased by 
one. If Dts true then 

'GO TO' BAD ts executed. 
Otherwtse, the statement 


following tt ts executed, 


ey ee 


Dumny Statement 


mi 1B2 


Dummy 


PURPOSE: To place a label at a particular point tn the program. 


FORM: (null form) 


RULES: 


1. Thts statement causes no operation. 


EXAMPLES: | 
Ty. “COUNT: COUNT ts the label of a 
dunmy statement. 
2.. (BS. 3: ABC: B3 ts the label of a 
E<+E+1 dummy statement. 
Se ‘BEGIN’ was TOY ts the label of a 
TOY: ‘END! dumny statement. 


=e oe 


"FOR! Statements 


Se Glee 


'FOR', expresston 


PURPOSE: To permit a statement to be executed for a spectfied value 


of a controlled variable. 


FORM: 'FOR' v+e 'DO' s 
v: vartable or subsertpted 
vartable 
e: arithmetie expresston 
8: statement 
RULES: 


1. Vartable v ts called the controlled variable of the 'FOR' 


statement. 
2. e represents a value whitch ts asstgned to v. 


3. Statement s may be a simple statement, a compound statement 


or a block. 


4, The 'FOR' statement causes the expresston e to be evaluated 


and tts value asstgned to v. Then statement s ts executed. 


5. After statement s ts executed with v having the value of e, 
the 'FOR' statement has been executed. If s does not explicttly 
spectfy tts successor, the statement following the 'FOR' state- 


ment ts executed next. 


6. After executton of the 'FOR' statement, the value of v ts 


undefined. 


i eae 


EXAMPLES: 
Ls 


'FOR', expression (eontd) 


If control ts transferred from the 'FOR' statement by a 


statement (within statement s), the value of v ts available. 


A 'GO TO' statement outstde the 'FOR' statement may not refer 
to a label within the 'FOR' statement. 


"FOR' J+I 'DO' A[J]<0.0 


"FOR' R«2*BOYt 2 ‘DO! 
"BEGIN' T+T+1; B[R]<+-C[R] 
"END! 


S166 


Thts etatement causes zero 
to be asstgned to locatton 
A(T]. 


Thts statement results tn 
-C[2* BOY+ 2] asstgned to 
B[2*BOYt+ 2]. Also, the 
value of T ts tnecreased 


by one. 


PURPOSE: 

FORM: 

RULES: 
4 
2. 
ro 
4, 
5. 


'FOR', 'STEP! 


elause 


To permit a statement to be executed repeatedly for a 
spectfted tnittal value, tnerement and ftnal value of a 


controlled variable. 
"FOR! ure, 'STEP'! Co TUNTIL! es 'po' s 


v: vartable or subsertpted 
vartable 
C1309 2a! artthmette expresston 


8s: statement 


Vartable v ts called the controlled vartable of the 'FOR' 


statement. 


e, represents the initial value for v3 @, ts the tnerement of 


v; e, ts the final value for v. 


3 


Statement s may be a simple statement, a compound statement 


or a block. 


The first step in the operation of the 'FOR' statement ts that — 
v ts assigned the value of e,. 


Statement s may be executed a number of times as follows: 

a. A test ts made to see tf the value of v ts beyond the 
bound specified by ez. If tt ts, statement will not 
be executed. The statement after s ts executed next 


and the value of v ts undefined. 


267 2 


'FOR', ‘STEP! 


clause (contd) 


Dy. Df v is within the bound, statement s is executed. 

e. If 8s does not explicitly spectfy tts successor, the 
value 25 ts then added to v (t.e. v+Vte»). If the 
value of 25 ts positive, this will have the effect of 
tnereasing v. If the value of Co ts negative, v will 


be reduced. The process ts then repeated at step a. 


6. If control ts transferred from the 'FOR' statement by a 
statement (within statement ¢), the value of v ts available. 


7. The value of the controlled variable, the tnerement and the 
final value may be changed by statement s. Therefore, they 


are evaluated every time reference ts made to them. 


8. A 'GO TO' statement outetde a 'FOR' statement may not refer 
to a label within the 'FOR' statement. 


EXAMPLES: 
1, ‘'FOR' I<l 'STEP' 1 'UNTIL' These statements cause 
10 'po' A[I]<B[1] B[1] to B[10] to be 
asstgned to A[1] to A[10]. 
2. 'FOR' K<9 'STEP' -2 ‘UNTIL! These statements cause 
5 "po! X[K]<Kt2 81 to be asstgned to x[9], 


49 to be asstgned to x{7], 
and 25 to be asstgned to 
X[5]. 


oe ae 


'FOR' L+l 'STEP' 1 'UNTIL' 5 
'DO' 'BEGIN' 

'FOR' A[L]+6 'STEP' 1 "UNTIL!" 
10 'DO' B[A[L],L]+L 

"END! 


ee 


'FOR', ‘STEP! 


elause (eontd) 


The order of assignments 
caused by these statements 
ts as followe: 

6 to 10 te asstgned to A[1] 
as 1 ts asstgned to B[6,1] 
to B[10,1], 

6 to 10 ts assigned to A[2] 
as 2 ts asstgned to B[6,2] 

to B[10,2], ete. 
Finally, 
6 to 10 ts asstgned to A{5] 
as 5 ts asstgned to B[6,5] 
to B[10,5]. 


PURPOSE: 


FORM: 


RULES: 


'FOR', ‘WHILE! 


elause 


To permit a statement to be executed repeatedly for assigned 
values of a controlled variable with repetition controlled 
by the value of a Boolean expression. 


'"FOR' v+e 'WHILE' b 'DO' s 


v: vartable or subsertpted 
vartable 

e: arithmetic expression 

b: Boolean expresston 


8s: statement 


Variable v ts called the controlled variable of the 'FOR' 


statement. 


Statement s may be a eimple statement, a compound statement 


or a block. 


Thts statement causes statement s to be executed repeatedly 


as long as the value of the Boolean expression b te true. 


This statement operates as follows: 

a. ets evaluated and tts value ts assigned to v. 

b. The Boolean expresston b ts evaluated. 

e. If bts true, statement s ts executed. If s does not 
explicttly specify its successor, the process ts repeated 
at step a. 

d. If bts false, statement s ts not executed and the state- 
ment followtng statement s ts executed next. The value 


of v ts undefined in thts case. 


ay (0 


'FOR', ‘WHILE! 


elause (contd) 


If control ts transferred from the 'FOR' statement by a 'GO TO! 


statement (within statement s), the value of v ts avatlable. 
The values of etther e or b may be changed by statement s. 


7. A ‘GO TO! statement outstde a 'FOR' statement may not refer 
to a label within the 'FOR' statement. 


EXAMPLE: 
J+1; These statements cause 1 
"FORT Ted) *WHILE’ 7 ‘LS 10 *DO! to 9 to be asstgned to A[1] 
"BEGIN' to A[9]. 
A[{I]<I; 
J<J+1 
"END! 


ey Ae 


PURPOSE: 


FORM: 


RULES: 


cant 
“CUR 


general 


To permit a statement to be executed repeatedly for vartous 


condtttons governtng a controlled variable. 
'FORt VAI sAoy+005E,, 'po' s 


v:. vartable or subsertpted 
a vartable | 
Biss esses artthmette expresston, 
'STEP' clause, or 
'WHILE' clause 


s: statement 


Vartable v ts called the controlled variable of the 'FOR' 
statement. 


AzsFos+e+yH, may be any combinatton of arithmetic expresstons, 


n 
'STEP' clauses, or ‘WHILE! clauses. 


s may be a stmple statement, a compound statement or a block. 
If a; ts an arithmetic expresston, a 'STEP' clause or a 


'WHILE' clause, the 'FOR' statement operates as prevtously 


described. The order of operation ts Ay2Fos+0+ 5G, 


es 7D axe 


‘FOR! 
general (contd) 


EXAMPLE: 
'FOR' X+3, 2 'STEP' 1 'UNTIL' 5, First, 3 ts asstgned to X 
70, 60, A 'WHILE' Z, 80 'DO! and procedure P(X) ts executed. 
P(X) 


Then the 'STEP' clause causes 
the following action: 2 ts 
asstgned to X and P(X) ts 
executed. xX ts stepped by 

1 three times causing tt to 
assume the values 3, 4 and 5. 
P(X) ts executed after each 
step of X. Next, X ts asstgned 
the value 70, and P(X) ts 


executed. 


Then X ts asstgned the value 
60, and P(X) ts executed. 


The ‘WHILE' clause causes 

the value of A to be asstgned 
to X. If Z ts true, P(X) ts 
executed. This ts repeated 
unttl Z becomes false. (The 
values of A and Z may be 7 
changed by executton of P(X)). 


Finally, 80 ts asstgned to X 
and P(x) ts executed. 


ae ie 


'GO TO' Statements 


cay ee 


'GO TO'" 
label 


PURPOSE: To tnterrupt the normal sequence of statement executton by 


defining expltcitly the suecessor of the current statement, 


FORM: 'GO TO' @ 


a: statement label 


RULES: 


1. The statement 'GO TO' a causes control to go to the statement 
wtth label a. 


2. A 'GO TO' statement outstde a 'FOR' statement may not refer 
to a label within the 'FOR' statement. 


3. A 'GO TO' statement outstde a block may not refer to a label 
withtn that block. 


4, A 'GO TO' statement outside a compound statement may refer 
to label wtthin that compound statement. 


EXAMPLES: 

1. ‘GO TO' BOY Thts statement causes con- 
trol to go to a statement 
labelled BOY. 

2. 'GO TO' T12; M15: ArA+l; The 'GO TO' statement causes 

‘IF' L 'THEN' 'BEGIN' C<D*E+2; eontrol to go to a statement 
T12: AeB+C*F ‘END! within a compound statement. 


SG) as 


'GO TO! 
switeh destgnator 


PURPOSE: To interrupt the normal sequence of statement executton by 
caustng control to be transferred to one of a number of 
posstble statements depending on the value of an arithmetic 


expresston, 
FORM: 'GO TO' sw [a] 


sw: swttch tdenttfter 


a: arithmette expression 


RULES: 


1. The switch tdentifter "sw" must have been defined by a switch 


declaration in the current block or in an enclostng block. 
2. The form sw [a] ts called a switch destgnator. 


3. The next statement to be executed is the one whose label ts 


referenced through the swttch declaration defining "sw". 


4, This 'GO TO' statement operates as follows: 

a. The expresston denoted by ais evaluated. From thts . 
value an integer k is established where k ts the result 
of the funetton ENTIER (a+.5). That ts, the largest 
tnteger not greater than the value of the argument, 
t.@., tf ats 8.7, k=4. 

b.  k spectftes which element in the list of the swttch 
declaration wtll be referenced, t.e., the leftmost 


element ts numbered 1; the next ts 2, ete. 


ae 


"oO TO', 
switch destgnator (contd) 


ec. If k ts not within the range 1 to n (where n ts the 
number of elements in the switch destgnator), control 


goes to the next statement tn normal sequence. 


5. A 'GO TO' statement outside a 'FOR' statement may not refer 
to a label within that 'FOR' statement. 


len) 
cf 


A 'GO TO' statement outstde a block may not refer to a label 
within that block. 


7. A 'GO TO! statement outstde a compound statement may refer to 


a label within that compound statement. 


EXAMPLE: 
'BEGIN' If T has the value 1 when 
'SWITCH' AB<+PB, QB; the 'GO TO' for switch AB 
"SWLICH “ACePG.) QC, AB[X]; ts executed, control goes 
ste to the statement labelled 
'GO TO' AB[T]; PB, If T has the value 2, 
ies control goes to the state- 
'GO TO' AC[Y]; ment labelled QB. If T 
Rak has any other value, con- 
"END! trol goes to the statement 


following the 'GO TO! state- 
ment. When the 'GO TO' for 
swttech AC ts executed, control 
wtll go to statements labelled 
PC or QC tf Y has the value one 
or tw0, respectively. If Y has 
the value three, then executton 
ts equtvalent to 'GO TO' AB[X]. 
If Y has any other value, con- 
trol goes to the next sequential 


statement. 


os pe 


"GO TO', 


eondtttonal destgnator 


PURPOSE: To tnterrupt the normal sequence of statement executton by 
eaustng control to be transferred to one of a nunber of 
posstble statements; the statement chosen wtll depend on 


the value of a Boolean expression. 


FORM: "GO" 70" ATP! > TREN® d, YEESE? d. 


b: Boolean expression 


d,,d,: destgnattonal expresston 


RULES; 


1. A destgnatton expresston (d,,d_) ts any one of the following: 

a. Statement label 

b. Swttch destgnator. Thts has the form sw[a], where sw 
represents a switch tdenttfier and a represents an 
artthmette expresston. 

e. Conditional destgnator. This has the form 

NIP? UD: * THEN” ve. SEUSEY <7. 

where b represents a Boolean expression; 

e may be etther a statement label, a swttch designator, 
or a conditional destgnator enclosed wtthin 
parentheses; 

d may be either a statement label, a switch destgnator, 
or a conditional destgnator (not necessarily enclosed 


wtthtn parentheses). 
2. hts statement operates as follows: 


a. The Boolean expression b ts evaluated; 


b. If b ts true, control ts transferred as specifted by dis 


= 78-5 


3. 


EXAMPLES: 
i 


ae 


‘GO TO!" 


eondittonal designator (eontd) 


c. If the Boolean expresston b ts false, control ts transferred 


as spectfted by do. 


A 'GO TO' statement outstde a 'FOR' statement may not refer to 
a label within that 'FOR' statement. 


A 'GO TO' statement outstde a compound statement may refer to a 


label within that compound statement. 


'GO TO' 'IF' A 'THEN' B 'ELSE' 
Ci) 
'GO TO' 'IF' BA 'THEN' LA 'ELSE' 


'TF' BB 'THEN' LB 'ELSE' LC 


a 


If the Boolean expression A 
ts true, control goes to the 
statement labelled B. Other- 
wise, control goes to the 
statement referenced by the 
Ith ttem in the swttch 
declaration defining C. 


If the Boolean expresston BA 

ts true, control goes to the 
statement labelled LA. If 
expresston BA ts false and 
Boolean expresston BB ts true, 
control goes to the statement 
labelled LR. If both expres- 
stons BA and BB are false, con- 
trol goes to the statement 
labelled LC, (Note: d, tn thts 
case ts a statement label while 


d. ts a conditional designator.) 


'GO TO", 
conditional destgnator (contd) 


3. 'GO TO' 'IF' BA 'THEN! C'IF' BB If both BA and BB are true, 
'THEN' LB 'ELSE' LC) 'ELSE' LA  — control goes to the statement 

labelled LB. If BA ts true 
and BB ts false, control goes 
to the statement labelled LC, 
If BA ts false, control goes 
to the statement labelled LA. 
(Note: d, te a conditional 
destgnator and, therefore, 


must be enclosed in parentheses.) 
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Procedure Statement 
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PURPOSE: To call for the execution of a procedure defined by a 
"PROCEDURE' declaratton. 


FORM: (1) name 
(2) name (a, t Qe El ose a,) 


name: procedure tdenttfier 
AyaAog+++5H? actual parameter 


t: separator 


RULES: 


1, A proceedure statement may have no parameters as shown in 
FORM (1). | 


2, When there are parameters (FORM (2)), each separator t may be 
etther "," or ")b:(" where b ts only deseriptive, t. e., tt 
may be used as comments to describe actual paraneters. b has 


no operattonal stgntftcance. 
3. The procedure tdentifier must appear in a procedure declaratton. 


4, The number of actual parameters must be the same as the number 
of formal parameters tn the procedure declaratton. However, 
the method of parameter separation need not be the same in a 
procedure statement and the corresponding declaration. That 
ts, where a comma was used in a procedure statement the form 


")b:C " may be used in the declaratton and vice versa. 
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Procedure statement (eontd) 


The actual parameters may be any one of the following: 
artthmette expresston 

Boolean expresston 

string 

array tdenttfter 

switeh tdenttfier 


procedure tdenttfier 


° 


aia ae a 


destgnattonal expresston 


The correspondence between the actual parameters of the proce- 
dure statement and the formal parameters of the procedure 
declaration ts by thetr appearance in the respective paraneter 
lists. The two sets of parameters must have the same number 


of ttems. 


The execution of a procedure statement ts as follows: 

a. The formal paraneters which appear in a value list of the 
procedure declaration are replaced by the values of the 
corresponding actual parameters. 

b. These actual parameters are evaluated from left to right 
according to thetr appearance in the parameter list. 

e. Formal parameters whitch are not part of a value ltst are 
replaced throughout the procedure by the corresponding 
aetual parameters. 

d. If the tdenttfier of an actual parameter and an tdenttftier 
already in the procedure are the same, adjustments wtll 
automatically be made to the latter so that no conflicts 
oecur. 

e. After the procedure has been modified as above, tt ts 


executed. 


a? aa 


10, 


dds 


EXAMPLES: 
de 


be rc ht OP ks DY 
emnmenv (COnlda/ 


h 
® 
Qa 
Q 
LAV) 
& 
aa 
LAN 
iva) 
ch 
gS 
ch 


If an actual parameter ts a string, tt may only be used in 


a procedure written in non-ALGOL code. In an ALGOL procedure, 


a string may appear only as an actual parameter for a further 


procedure call, 


An actual parameter corresponding to a formal parameter whtch 


appears on the left stde of an asstgnment statement tn the 


procedure must be a vartable or a subscrtpted variable. 


If a formal parameter ts an array tdenttfier, the corresponding 


aetual paraneter must also be an array identtfier of the same 


dimenston. 


A swttch tdentifter or string may not be an actual parameter 


corresponding to a formal parameter whtch tis called by value. 


A procedure tdentifier may not be used as a value parameter 


unless tt destgnates a funetton with no arguments. 


HIGHVAL (Z, P*(P+1)/2 , V, 1D 


ee SOE 


The procedure whtch thts 
statement calls ts defined in 
the seetton 'PROCEDURE' 
declaration, simple. In 

thts procedure statement Z 
denotes the number of elements. 
The value of the largest 
element of Z will be found tn 
V after the procedure call, 
and I wtll contatn the value of 
the subsertpt of the largest 


element. 


2. 


on 


4. 


SQUAREROOT CAt2+B42, .000001, C) 


TOT (CX, A, 1, N, 1/A®CA+1) 


SUM+ADD CA, I, ND FUNCTION: 
C1/A®CA+1)) 
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Procedure statement (contd) 


The procedure whtch this 
statement calls ts defined 
in the sectton ‘PROCEDURE! 
declaration, spectfication 
part. After thts procedure 
statement ts executed, C 
wtll contain the square root 
of AGB with an accuracy of 


.000001. 


The procedure whtch this 
statement calls ts defined 
tn the sectton 'PROCEDURE! 
declaration, value and 
spectficatton part. Thts 
procedure statement wtll 
result tn the following 


computatton: 


MN 
X = 1/A(A+1) 
A=1 


The procedure whitch this 
statement calls ts defined 
tn the sectton 'PROCEDURE! 
declaration, funetton defint- 
tion. Thts funetton call 
will result tn the summatton 
of example 3 in ADD and tn | 
SUM. The symbol FUNCTION ts 
used as text and has no 


operational signtfteance. 


SUM«ADDCP,Q, N#CN+1), 
ADDCQ, 1,N, P/Q) 


BGG 


Procedure statement (eontd) 


This statement results tn 
the value of the followtng 
ecomputatton placed in ADD 
and tn SUM: 
N(N+1) WN 
z =z P/Q 

P=Q = @=1 

Thts ts an example of a 


recursive procedure call. 


—, 


Ve. DECLARATIONS 


Ex ak 


TARRAY' Deelarattons 


ae ae 


PURPOSE: 


FORM: 


RULES: 


"ARRAY! 


To speetfy array tdentifiers, dimenstons, bounds of subscripts 


and array types. 


type 'ARRAY' Aya oy +0+5h, 


type: type word 


AjsAoree+5Q 2 array spectfter 


The type word may be any one of the following: 


a. ‘INTEGER! 

b. 'REALt 

ce. ‘EXTENDED REAL! 
d. "BOOLEAN! 


Type ts optional, If it is not used, 'REAL' ts assumed. 
The type ts asstgned to each array tdentifter in the 


declaratton. 


An array spectfter may be etther of the form b or ble], where 
b represents an array tdenttfier and e represents a dimension 
specifier. A dimenston specifier has the form d,: 245do: e 
di: e3 where each d, and 2, may be an artthmette expresston. 


nts the number of ditmenstons. d, and @, represent the lower 


and upper subscript bounds of dimension t, respectively. The 


value of a lower bound may not exceed the value of an upper 


bound. 


5 1G) os 


gore 


EXAMPLES: 
ug 


CPamrmacset 


TARRAY' (contd) 


If an array tdentifier does not have a dimension spectfier, 


the next dimenston spectfter ts asstgned. That ts, the form 


bad os +++ 5d, [d,: 21s dy: Coseeead? e,] ts equtvalent to the 
form b, [d,: C13 di: Coseeegd? eds be [d,: Cn d,: Coseeeg dt 
b [d, 49d: Coseeeyd t el. 


Lower and upper bounds will be evaluated from left to right. 


The bounds can only depend on vartabbes and procedures which 


have been defined in a block enclosing the block for whtch 


the array declaration ts valid. Consequently, in the outermost 


block of a program, only array declarattons with constant 


bounds may be used. 


The bounds will be evaluated each time the block ts entered. 


Every array used tn a program must appear tn an array declaration. 


An array tdentifier may not appear with subscripts whose values 


do not lie within the bounds spectfied by the array declaratton. 


"ARRAY' A[1:10] 


700 vs 


The array A ts one-dimenstonal 
and has a lower subseript 
bound of 1 and an upper sub- 
sertpt bound of 10. Ais 
assumed to be of 'REAL' type. 


2. 


3. 


'ARRAY' A,B [1:10,1:20] 


'INTEGER' "ARRAY! A[P:Q], 


Be Lis2eP, 555,205) 
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TARRAY' (contd) 


Arrays A and B are two 
dimenstonal and have sub- 
sertpt bounds 1 and 10 and 
1 and 20, The arrays are 
assumed to be 'REAL' type. 


The array A ts of ‘INTEGER' 
type and has subseript bounds 
Pand Q. B ts of 'INTEGER' 
type and ts three dimenstonal. 
The bounds of the dimenstons 
and 1 and 2*P, 3 and 5, and 

1 and 5 respectively. 


TARRAY' 
TOWN! 


PURPOSE: To spectfy array identifiers, dimensions, bounds of subsertpts 
and array types; also to spectfy the conditton of arrays upon 
re-entry tnto a block. 


FORM: 'OWN' type 'ARRAY' AysAor+++90, 


type: type word 


AysAoyeee9%,2 array spectfter 


RULES: 


1. The array specifiers may be tn any of the forms permtsstble 
for the array declaratton. 


2, All the Rules which pertain to array declarations are valid 
for the 'OWN' array declaration except: 
a. On re-entry into the block in whteh the 'OWN' array 
declaration appears the array elements will have their 
previous values. | 


b. The subsertpt bounds must be integer constants. 


3. When extt ts made from the block (by 'END' or by a 'GO TO! 
statement), the tdenttfters are tnaccesstble even though 


thetr values have been saved. 


EXAMPLE: 
"OWN' '"BOOLEAN' 'ARRAY' _ The array BA ts three dimen- 
BA[1:20, 5:15, 1:10] stonal and ts of 'BOOLEAN' 
type. The bounds of the 
dimenstons are 1 and 20, 
5 and 15, and 1 and 10, 


respectively. 


ey ee 


'PROCEDURE' Deeclarattons 


aOR 


PURPOSE: To define a statement or series of statements as being asso- 
etated wtth a procedure tdentifter; to provide a means by 
which a procedure may be executed any number of ttmes in the 


course of a program although the steps of the procedure appear 


only once. 
FORM: 1) 'PROCEDURE' name; s 
2)  'PROCEDURE' name (ay, ta ,t... t as s 


name: procedure tdentifier 
AysAogeeeyG,! formal parameter 
t: separator 


s: statement 


RULES: 


1. A procedure declaration may have no parameters as shown in 
FORM (1). 


2. When there are parameters (FORM (2)), each separator t may be 
either "," or ")b:(" where b represents any sequence of 
letters. The funetion of b ts only descriptive, t.e., tt may 


be_used_as_comments_to_describe actual_parameters. b has no 


operattonal stgntftcance. 


3. The formal parameters may be any of the followtng: 
a. variable 
b. array tdentifier 
e.  swttch tdentifier 
d. label 


e. procedure tdenttfier 


5. Ghie 


"PROCEDURE' declarations 
simple (contd) 


The formal parameters usually appear somewhere in statement s. 
They wtll be replaced by or asstgned the values of the actual 
paraneters of the particular procedure statement which calls 


the procedure. 


Statement s may be 


a. a stmple statement 
b. a compound statement 
@. a block 


Identtfters which are not formal parameters may appear in s tf 

either of the following conditions exists: 

a. sts in the form of a block and the tdentifiers are declared 
at the beginning of thts block. 

D: the tdentifiers are declared in the block tn whitch the 


procedure declaration appears. 


Statement s always acts like a block tnsofar as the scope of 
tts tdentifters ts concerned, 1.e., a label appearing in s ts 


not defined outstde the procedure declaration. 


The procedure spectfied may be executed anywhere tn the block 
tn which the declaration appears by writting a procedure state- 
ment containing the procedure tdentifter and the actual para- 


meters, tf any. 


es Ob e 


"PROCEDURE' declaration, 
simple (contd) 


EXAMPLE: 
"PROCEDURE' HIGHVAL (A,N) ANS:(X,Y); ‘hts procedure determines 
"BEGIN! the largest element of an 
X*A[1]; Y<1; array. Input formal 
"FOR' 1+2'STEP' 1.'UNTIL' N 'DO' parameters are: array 
'IF' ALI] 'GR' X "THEN!  tdentifier A and number N 
"BEGIN! of elements. Output formal 
X«A[I]; Y+I parameters are: value X of 
"END! Largest element and value Y 
"END of subsertpt of largest 


element. The symbol ANS 
ts used as text and has no 


operattonal stgntftcance. 


=96. 2 


PURPOSE: 


FORM: 


RULES : 


'PROCEDURE! declaratton, 


spectfication part 


To define a statement or series of statements as betng asso- 
etated with a procedure tdenttfiter; to provide a means by 

whteh a procedure may be executed any number of times tn the 
course of a program although the steps of the procedure appear 
only once; to spectfy the kinds of quantities actual parameters 


may represent. 


"PROCEDURE! name (a, t ay C638 ob a) 


ep: lists ep listsvces ep itet; s 


name: procedure tdentifter 
formal parameter 
t: separator 
sp: spectfter 
itst: formal parameters 
separated by commas 


s: statement 


Each separator t may be etther "," or ")b:(" where b represents 
any sequence of letters. The funetton of b ts only descriptive, 
t.@., tt may be used as comments to desertbe actual parameters. 


b has no operational stgntftcance. 


The formal parameters may be any of the following: 
a.  vartable 
b. array tdentifter 
C. label 
swttch tdenttfier 


procedure tdentifier 


ay ee 


‘PROCEDURE! deelaration, 
spectftcation part (eontd) 


The formal parameters usually appear somewhere in statement s. 
They are replaced at the time of executton by the actual 


paraneters of the procedure statement. 


The specifiers may be any of the following: 


"ARRAY! 'INTEGER' "ARRAY! 
"BOOLEAN! | "INTEGER! 'PROCEDURE! 
'BOOLEAN' ‘ARRAY! "LABEL! 
"BOOLEAN' ‘'PROCEDURE! "PROCEDURE! 
"EXTENDED REAL' "REAL! 
"EXTENDED REAL' "ARRAY? 'REAL' "ARRAY! 
"EXTENDED REAL' "PROCEDURE! "REAL' 'PROCEDURE! 
"INTEGER! | "STRING! 

‘SWITCH! 


The specifiers indicate for the paraneters in their "list" 
what form the corresponding actual parameters should take. 
(Note: "INTEGER', 'REAL', and 'EXTENDED REAL' may be used 
interchangeably and the proper transformations will take 


place automatically.) 


A formal parameter may appear in no more than one "list." 
However, a formal paraneter need not appear in a Nett 


except for switches which must be spectfied. 


Statement s may be 
a a stmple statement 
b. a compound statement 


C. a block 
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10, 


EXAMPLE: 


'PROCEDURE' deelaratton, 
spectfteatton part (eontd) 


Identifters whtch are not formal parameters may appear tn 

s tf etther of the followtng condtttons extsts: | 

a. sts a block and the tdenttfters are declared at the 
beginning of thts block. 

b. the tdenttfters are declared tn the block tn whtch the 


procedure declaration appears. 


Statement s always acts ltke a block insofar as the scope of 
tts tdentifters ts concerned, i.e., a label appearing in s 


ts not defined outstde the procedure declaration. 


The procedure spectfted may be executed anywhere in the block 
tn whitch the declaration appears by writting a procedure state- 
ment containing the procedure tdenttfter and the actual 


parameters. 


"PROCEDURE' SQUAREROOT (X,E,S); Thts procedure computes 
TREAL® X, -E, S; the square root. Input 
'BEGIN' 'REAL' SA; formal parameters are: 


PPK MES? 0 .PUHEN? number X whose square root 
'BEGIN' S+-1; 'GO TO' B 'END'; = ts wanted and accuracy E. 
SA+1; Output formal parameter ts 
A: S<+CSA+tX/SA)/2; square root S of X. 
'IF' ABSCSA-S) 'GR' E ‘THEN! 

"BEGIN' SA<S; 'GO TO' A 'END'; 
‘END! 


bs Ose 


value and spectficatton 


part 
PURPOSE: To define a statement or series of statements as being asso- 


etated with a procedure identifier; to provide a means by 
whteh a procedure may be executed any number of times in 

the course of a program although the steps of the procedure 
appear only once; to spectfy which formal parameters are 
replaced by the value of the corresponding actual parameters; 
to spectfy the kinds of quantittes actual parameters may 
represent. 


FORM: _ 'PROCEDURE' name (a, 64 
"VALUE' Ztst; 


2 


sp list; sp list;...; sp list; s 


name: procedure identifier 
AysFos+ees4,! formal parameter 
t: separator 
sp: spectfrer 
S: statement 
list: formal parameters sepa- 


rated by commas 


RULES: 


1. Each separator t may be either "," or '")b:(" where b repre- 
sents any sequence of letters. The function of b ts only 
descriptive, t.e., tt may be used as comments to desertbe 


actual parameters. b has no operational significance. 
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"PROCEDURE! declaration, 
value and specificatton 
part (contd) 


The formal parameters may be any of the following: 


a.  vartable 

b. array tdentifter 

C. label 

d. swttch tdentifier 

é@. procedure tdenttfter 


The formal parameters usually appear somewhere in statement 8. 
They are replaced at the time the proceudre ts. called upon by 


the actual parameters of the procedure statement. 


However those formal parameters which are listed in the 'VALUE! 
part of the declaratton are asstgned the current values of 

the corresponding actual parameters before statement s ts 
executed. The order of asstgnment ts from left to right 
according to the order of appearance tn the formal parameter 
ltst. 


The spectfter may be any of the followtng: 


"ARRAY! "INTEGER' 'ARRAY' 
"BOOLEAN! "INTEGER' PROCEDURE! 
"BOCLEAN' 'ARRAY' "LABEL' 
"BOOLEAN' 'PROCEDURE' "PROCEDURE! 
"EXTENDED REAL' "REAL! 
"EXTENDED REAL’ "ARRAY! "REAL' 'ARRAY'! 
"EXTENDED REAL' 'PROCEDURE' "REAL' 'PROCEDURE! 
INTEGER’ "STRING' 

"SWITCH! 


The spectfters tndicate, for the parameters in thetr lis what 
form the corresponding actual parameters should take. (Note: 
"INTEGER', 'REAL' and ‘EXTENDED REAL' may be used interchangeably 


and the proper transformations will be made automatically.) 
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7. 


10. 


iti 


12. 


vatue and spectftcatton 
part (contd) 
A formal parameter may appear tn no more than one spectficatton 
list. However, a formal parameter need not appear in a list, 


except for swttches whtch must be spectfied. 


A formal parameter appearing tn the 'VALUE' Ztst must also 


appear in one of the spectficatton lists. 


Statement s may be: 


a. a stmple statement 
b. a compound statement 
ec. a block 


Identifiers whtch are not formal parameters may appear in s 

tf etther of the following conditions exists: | 

a. 8s ts a block and the tdentifters are declared at the 
begtmning of thts block. 

b. the tdentifiers are declared in the block in which the 


procedure declaration appears. 
Statement s always acts like a block insofar as the scope of 
tts identifiers ts concerned, 7.é€., a label appearing in s ts 


not defined outstde the procedure declaratton. 


The procedure specified may be executed anywhere tn the block 


tn whteh the declaratton appears by writting a procedure state- 
ment containing the procedure identifter and the actual para- 


meters. 
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"PROCEDURE' declaration, 


value and spectficatton 


part (contd) 


EXAMPLE: 

"PROCEDURE! TOTCT,K,L,M,UD; This procedure computes the 

"VALUE' L,M; 'INTEGER' L,M; sum of values of a funetton 

"BEGIN! U between the limits of 
T+0; summation L and M. The 
"FOR' K«L 'STEP' 1 'UNTIL' M 'DO' = funetton U may depend on 
T<T+U. the summation index K. The 

"END! sum ts generated in formal 


parameter T. 
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"PROCEDURE! declaration, 


funetton definition 


PURPOSE: To define a statement or sertes of statements assoctated with 
a spectfie procedure tdentifter as being a funetton; to pro- 
vide a means by which the appearance of the procedure identti- 
fier wtll cause the function to be performed and a value to | 
be gtven to the tdentifter although the steps of the funetton 


appear only once. 


FORM: (1) type 'PROCEDURE' name; s 
(2) type 'PROCEDURE' name (a, t ao 
(3) type 'PROCEDURE' name (a, t a, 
sp list; sp ltst;...3; sp list; 
(4) type 'PROCEDURE' name (a, t a, 
"VALUE! List; 
sp list; sp list;...3 sp list; s 


type: type word 
name: procedure tdenttfier 
AysAosree5? formal parameter 
t: separator 
sp: spectfter 
s;: statement 
list: formal paraneters 


separated by commas 
RULES: 


1. A procedure declaration may have no parameters as shown in 
FORM (1). 


= 404-2 


"PROCEDURE' declaration, 


functton definition (eontd) 


When there are parameters (FORM (2), (8), (4)), each separator 
t may be etther "," or ")b:(" where b represents any sequence 
of letters. The funetton of b ts only deseriptive, t.e., tt 
may be used as comments to describe actual parameters. b has 


no operattonal stgntftcance. 


The type word may be any of the following: 

a. "INTEGER! 

b. . 'BOOLEAN' 

CG "REAL! 

Gi "EXTENDED REAL! 

The type word tdenttfies the type of the procedure tdenttfter. 


At some potnt in the procedure body, 7.e., tn statement s, the 
procedure tdenttfier must appear on the left stde of an asstgn- 
ment statement. When this statement is executed, the funetton 
recetves a value, and it is thts value which ts used when the 
procedure tdentifiter appears in an expresston. The functton 
recetves a value according to the type spectfted by the type 


word. 


The procedure identifter may appear on the left stde of any 
number of asstgnment statements. It ts the last one to be 


executed from whitch the funetton recétves tts value. 


The formal parameters may be any of the following: 
a. variable | 

b. array tdentifter 

e. label 

d. swttch tdenttfier 


@. procedure tdenttfier 
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10. 


dds 


12. 


13. 


'PROCEDURE' declaration, 
funetton definition (contd) 


The formal parameters usually appear tn statement s. They 
are replaced at the time the procedure ts called upon by the 


actual parameters of the funetton call. 


There may or may not be a 'VALUE' declaratton tn a functton 
definition. If there ts, the rules which apply are the same 


for all procedure declarations. 


The spectfters whtch may be tneluded, and the rules which apply 


are the same for all procedure declarattons. 


Statement s may be 
a a stmple statement 


b. a compound statement 
e. a block 


Identifters whitch are not formal parameters may appear in s tf 

either of the following conditions extsts: . | 

a. sts a block and the identifiers are declared at the begin- 
ning of this block. 

b. the identifiers are declared in the block tn whtch the 


procedure declaration appears. 


Statement s always acts ltke a block tnsofar as the scope of 
tts tdentifiers ts concerned, t.e., a label appearing in s 


ts not defined outside the procedure declaratton. 


The funetion whtch thts declaration defines may be executed 
anywhere in the block tn which thts declaratton appears by 
writing in an arithemette or Boolean expression the procedure 


tdentifter and the actual parameters, tf any. 
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"PROCEDURE' declaratton, 


funetion deftnitton (contd) 


EXAMPLES: 
1. 'REAL' 'PROCEDURE' ADDCK,L,M,UD; Thts funetton computes the 
"BEGIN' 'REAL' W; sum of values of a funetton 
W+0 ; U between the limits of 
"FOR' K+L 'STEP' 1 "UNTIL! summatton L and M. The 
M 'po! funetton U may depend on 
W<W+U; the summatton tndex K. 
ADD<W Upon extt from the function, 
"END! the sum ts econtatned in: ADD 
whteh ts of type 'REAL'. 
2. '‘INTEGER' 'PROCEDURE! FACTCX); This ts an example of a 
"IF! X 'EQ' 1 'THEN' FACT+1 'ELSE' reeurstve procedure declara- 
FACT+X* FACTCX-1) tion. Execution of FACT(2) 


causes FACT(1) to be executed 
because of the statement 
FACT+2* FACT(1). Then FACT 
will have the value 2*1, 
Executton of FACT(3) causes 
FACT to have the value 3*2*1, 
If this procedure is called 
n times, FACT wtll have the 


value n factorial. 
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PURPOSE: 


FORM: 


RULES: 


"PROCEDURE! declaration, 
separately comptled 


To provide a technique for communicating wtth separately 


- compiled procedures. 


(1) "CODE! 
(2) 'CODE' 'BEGIN' dizdyz...3d, "END! 


Ajsdoy+++9d: eode declaration 


FORM (1) or FORM (2) above are to be used in a procedure 


declaration in place of statement s when it ts destred to 


write a procedure outstde an ALGOL program. The procedure 


may be written etther as a separately compiled ALGOL program 


or as a procedure comptled in some other language (e.g., GMAP). 


Each d, may have any one of the following forms: 


om 


"OWN' type 'ARRAY' AysAos+0090, 


where type and Ay2Aoo +4494, have the same meantng as 
desertbed under Array declaratton, 'OWN'. This code 
declaratton declares 'OWN' arrays whose storage will 

be reserved tn the declaring progran but whose identifiers 
wtll be valtd only in the separately compiled procedure. 
"OWN' type VisVoreerad,, 
where type and VisVoseee5V, have the same meantng as 
described under Type declaration, ‘OWN'. Thts code 
declaration declares 'OWN' variables whose storage will 

be reserved with the declaring program but whose identtfiers 
wtll be valtd only in the separately compiled procedure. 
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Cs "NONLOCAL' AysAoseee 5G 


"PROCEDURE! declaratton, 
-geparately compiled (contd) 


n 


where AysAoseeeyG, may be any of the followtng: 


1) 
2) 
3) 
4) 
5) 


vartable 

procedure tdentifier 
array tdenttfier 
switch identifier 
label 


Thts code declaration makes the spectfted tdenttfters 


of the declaring procedure available to the separately 


comptled procedure. 


The procedure tdentifter of a separately comptled procedure 


and all the tdenttfters spectfied in a, b and e above must 


be untque tn 6 characters. (A character ts etther a letter 


or a dtgtt.) 


For all procedures defined as 'CODE', a SYMREF will be 


produced in the declaring program, 


SYMDEFS will be produced for all 'OWN' variables and arrays. 
In the case of an 'QWN' vartable, the SYMDEF wtll potnt to 


the storage location for the vartable; in the case of an 'QWN'! 


array tt wtll point to the ftret word of the alpha vector 


for the array. 


There will be a SYMDEF assoctated with each entry in a 

'"NONLOCAL' Zzst. 

a. Fora procedure tdentifier, the SYMDEF will point to the 
entry location of the procedure. 

b. For a switch identifier, the SYMDEF wtll potnt to the 
entry locatton for the body of code whtch evaluates the 
switch, 
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"PROCEDURE ' declaration, 
- separately compiled (contd) 


c. Fora vartable tdenttfter, the SYMDEF wtll define etther 
the absolute location or the stack relative location of 
the variable, depending on whether the vartable ts non- 
procedural or procedural, 

d. Fora label, the SYMDEF wtll point to the location of the 
label. 

é. «For an array tdentifiter, the SYMDEF wtll potnt to the 
first word in the alpha vector for the array. The pointer 
‘wtll be absolute or stack relative, depending on the 
potnt of definttion of the array. 


The user of a 'CODE' procedure ts completely responsible for 
proper mantpulation of the stack potnter, for setting of the 
avatlable space potnter, and for correct usage of the various 


ALGOL constructs made available to him. 
Detatls regarding Rules 4-7 may be found in ALGOL SSI. 


It ts posstble to remap the internal name of a separately 

comptled procedure tnto a different set of 6 or fewer characters 
which will be used as its SYMREF, This is accomplished with 

the ALGOL word ‘RENAME! followed by a string containing the 
destred external name. This eonstruct follows the formal 
parameter list and precedes the word 'CODE'. The 'RENAME' 

string may constst of any combination of 6 or fewer characters 
and/or decimal points. 

Example: ‘PROCEDURE' INPUT 0 Ca, string); 'RENAME''',AOIPT\; 'CODE! 
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'SWITCH' Declaration 
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‘SWITCH' (contd) 


When a 'GO TO' statement involving a switch destgnator ts 
encountered in the progran, the subscript of the swttch 
designator ts given an integral value. It is thts value 


whteh determines whtch element of the list ts referenced. 


If the list item referenced is a conditional designator the 
'IF' clauses are evaluated unttl a destgnational expresston 


tnvolving only a label or a swttch destgnator ts reached. 


If the ltst element referenced ts a label, tt spectftes 


directly the next statement to be executed. 


If the element ts a switch designator, it in turn references 
another ‘SWITCH! declaration. The subscript of the switch 
designator ts evaluated to locate the correct list element 
of the new 'SWITCH' declaratton. 


This process may be repeated through any number of ‘SWITCH! 
declarations unttl reference is made directly to a statement 
label. 


Each time an element in the ltst of a 'SWITCH' declaration 


ts referenced, any expressions the element may contain are 


re-evaluated. 


ee Oe 


"SWITCH' (eontd) 


EXAMPLE: , 
"SWITCH! BA+PA, 'IF' S "THEN! This switch may be called 
PB 'ELSE' PC, AC[X] by a statement such as 'GO TO! 


BA[D] whtch operates as ~ 
follows: If D has the value 
1, operatton ts equtvalent to 
operation of 'GO TO' PA, 
where PA ts a statement 
label, If D has the value 
2, operatton ts equtvalent 
to operation of 'GO TO' 'IF' 
S 'THEN' PB 'ELSE' PC, where 
S ts a Boolean expression 
and PB and PC are statement 
labels. If D has the value 
3, operation is equivalent 
to operatton of 'GO TO' AC[X] 
' where AC ts a switch tdent- 
tfter and X ts an arithmetic | 
expresston. If D has any 
other value, the statement 
following the 'GO TO' ts 


executed next. 


ee oa 


Type Declarations 
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Type 


PURPOSE: To speetfy whitch variables represent integer, real, extended 


FORM: 


RULES: 


real or Boolean quantities. 


type V9 Voaeees¥,, 


type: type word 
VzsVoseee9¥! varvable 


The type word may be one of the following: 

"REAL', "EXTENDED REAL', 'INTEGER', or 'BOOLEAN'. The type 
word spectfites the type of the vartables Vi2Vogee+9V,s 

Each variable used tn a program must be declared in a type 


deelaratton. 


No vartable may appear in more than one type declaration tn 
a stngle block. 


The type declaration is valid only for the block in which the 
declaration appears. Outside this block the tdenttfters may 


be used for other purposes. 


The type declaration ts valid for any blocks contatned within 
the block eontaining the type declaration. However, variables 
may be redeclared tn sub-blocks, in whitch case the previous 
declaration ts superceded. 


. When extt ts made from a block (by 'END' or by a 'GO TO! 


statement) all tdentifiers which were declared for the block 
are undefined. 
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EXAMPLE: 


Type (contd) 


'BEGIN' 'INTEGER' P,Q; 'INTEGER' 'ARRAY' S[1:5]; 
P+33 Qa; 
'BEGIN' 'REAL' P,R; 


"END? 


'END!; 
S[4]<+P; 
S[5]+Q 


RQ; 
P<1; 
S[1]<P; 
S[2]+Q; 
S[3]<R 
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These statements assign | 
the numbers 1,2,2,3,2 tn 
this order to elements of 


the array S. 


PURPOSE: 

FORM: 

RULES: 
ae 
ce 
oy 
4, 
es 


Type, ‘OWN' 


To spectfy which vartables represent integer, real, extended 
real, or Boolean quantittes; to provide a means for retaining | 
prevtous values of certain variables upon re-entry into a 
block. 


‘OWN' type VisVoa+ee9¥,, 
type: type word 
VqsVose0450,3 vartab le 


The type word may be one of the followtng: 
"REAL', "EXTENDED REAL', 'INTEGER', or''BOOLEAN'. The type 


word spectftes the type of the variables ViaVoseeead « 
n 


Each vartable used in a program must appear tn a type declara- 


tton. 


No variable may appear tn more than one type declaration in 


a single block. 


Only variables whose values are to be preserved for posstble 
re-entry tnto a block should be spectfted by an 'OWN' type 
declaration. All other vartables should be declared in a 


regular type declaration. 
The vartable identifters declared in any type declaration are 


defined only for the block in whtch they appear. Outside the 
block the tdentifiers may be used for other purposes. 
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EXAMPLE: 


CS 


Type, ‘OWN' (eontd) 


When an exit ts made from a block (by ‘END' or by a 'GO TO! 


statement) the tdentifters are tnaccesstble although their 


values have been saved. 


A«6; 


'BEGIN' 'REAL' C; "OWN! 'REAL' D; 


‘IF! A 'EQ' 6 "THEN! 
"BEGIN! 
C<7; 
D<8 5 
Ac9; 
'GO TO' E 
"END!; 
A«D-2 
‘END: 


'IF' A 'NQ' 6 'THEN' 'GO TO! B 


=e 


Durtng the ftrst executton 
of block B, 7 ts asstgned to 
C, 8 ts asstgned to D and 9 
ts asstgned to A. Executton 
of the condittonal statement 
labelled E causes block B 

to be executed again. During 
this execution, A is set to 

6 because the previous value 
of 'OWN' variable D ts saved. 
However, vartable C could 
not be used tn this way 
because not being 'OWN', tts 


value ts not saved. 


VI. COMPOUND STATEMENTS AND BLOCKS 


- 120 - 


PURPOSE: 


FORM: 


RULES: 


EXAMPLES: 
te 


Compound statement 


To permit a sertes of statements to be jotned together in 
such a way as to act as a unit. 


'"BEGIN' s SS os 40658, "END! 


7? 


S728 o9++098,% statement 


A compound statement may have a label and may contain any 


number of statements (s,). 


Each statement S4aSos+++98, may be 
a. a stmple statement 
b. a compound statement 

a block 


Each statement may have a label. 


A 'GO TO' statement may transfer control to a statement 


within a compound statement. 


I<1; These statements asstgn 

Te. STF* T.“COt 10). THEN! the numbers one to ten to 

"BEGIN! elements of the array A. 
A[I}<I; Thts example contains a 
I<I+1; compound statement as the 
'GO TO' T true branch of a eondtttonal 

"END' statement. 
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Compound statement ‘eontd) 


2. ‘FOR' I+l 'STEP' 1 'UNTIL' 10 ‘DO! 


"BEGIN! 
"FOR' J+1 'STEP' 1 'UNTIL' 10 ‘DO! 
"BEGIN' 
"IF" I 'EQ’ U "THEN! 
"BEGIN! 
B[I,u]+l; 'GO TOo' Ss 
"END! ; 
B[I,J]<0; 
S: 'END! 
"END! 


These statements generate 
a ten by ten unit matrix 
tn the array B. Each 'FOR' 
statement has a compound 
statement as tts object. 
Also, the true branch of 
the 'IF' statement ts a 


compound statement. 
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PURPOSE: 


FORM: 


RULES: 


Bloek 


To permtt statements and declarations to be grouped together 
tn such a way as to be tndependent of other parts of a 
program. This permits labels and tdentifiers to be used in 


different secttons of a program without conflicts. 
"BEGIN! D5 do5 04 63A 387580500658, "END" 


Aisdoye+054,: declaratton 


S728 o9++058,8 statement 


A block may have a label, and may contatn any number of 


decelarattons and statements. 


Each statement S72Sose++98,, may be 


a. a stmple statement 
b. a compound statement 
e. a block 


Each statement may have a label. 
When a block ts entered through 'BEGIN', the tdentifiers whtch 
are declared for the block are newly defined and lose any 


stgntficance they may have had prior to entry. 


All labels within a block are local to the block and may not 


be referred to from outside. 


de 5 


Block (eontd) 


6, When exit ts made from a bleck, all tdentifiers which were 
declared for the block are undefined and may be used for 


other purposes, tneluding those declared as 'OWN'. 


7. If a declaration ts prefaced with 'OWN', the tdenttfters so 
defined wilt retain their previous values upon re-entry into 
the block. If 'OWN' ts not spectfied, the values will be 
lost when exit is made from the block and will be undefined 


upon re-entry. 


8. All tdenttfters used in a program must be declared in one of 
the blocks comprising the program. Wo tdenttfter may be 


declared more than once tn a single block. 


9. If blocks are nested, a statement label has meaning only in 


the smallest block containing that statement. 


EXAMPLE: . 
"BEGIN' 'REAL' X,Y; ‘ARRAY! A[1:5]; These statements assign the 
Xel; Y+2; numbers 3,2,2,1,2 in this 
"BEGIN' 'REAL' X,Z; order to elements of the 
L+Y? array A. 
X+3; 
A[1]<x; 
A[2]<y; 
A[3]+Z 

"END'; 

A[4]<x; 

A[5]+Y 

‘END! 
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VIL. INPUT/OUTPUL 
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INPUT/OUTPUT 


The ALGOL language itself provides no input/output statements. However, 
the ALGOL comptler for the General Electrite 625/635 contains wtthin tt 
a number of procedures whitch handle the I/O. All a programmer need do 
ts to call the extsting procedures ustng an ALGOL procedure statement, 
and through the procedure parameters, transmit the tnformation requtred 
for the tnput and/or output process. . 


The procedure tdenttfters used by ALGOL are reserved and act as though 
declared tn a block enclosing the program. If a programmer redectlares 
one of these tdenttfiers tn his program his declaration supersedes the 


standard definttton. The procedures provided are listed below: 


A. Procedures pertaining to the layout of the I/O informatton 
on the external device: 
BAD DATA 
FORMAT 
FORMAT 1 (n=0;1,2,..,9) 
HEND- 
HLIM 
NO DATA 
TABULATION 
VEND 
VLIM 


B. Procedures dealing with the actual transmisston of data: 


INLIST 
INPUT 7 (n=0,1,2,...,9) 
OUTLIST 

OUTPUT n (n=0,1,2,...,9) 
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C. Procedures allowing finer control over the tnput and output 
processes: 
POSITION 
SYSPARAM 


D. Primitive procedures: 
INSYMBOL 
LENGTH 
NAME 
OUTSYMBOL 
STRING ELEMENT 
TYPE 


Each procedure ts discussed in detatl on the following pages, and the 


form of the procedure call ts given. 


In addition, the user of these procedures needs to provide a list of 
the data items which are to be transmitted. This list is spectfied in 
a user declared procedure called a list procedure.. The identifier for 
this procedure ts not reserved by ALGOL, and thus any valid identifier 
may be chosen. The list procedure ts discussed following the ALGOL 


procedures. 
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Layout Procedures 
The procedures to be deseribed in this section deal wtth the 


appearance of the data on an input or output device. All of 
the procedures describe a printed page. However the concepts 


may be generaltzed to inelude any external devtce. 


Listed below are the phystcal characteristics of the I/O devices. 
The number of characters per line ts referred to as P. The 


number of lines per page ts referred to as P’. 


P Bi 

Device (characters) (Lines) 
Line Printer 120 55 

Card Reader (binary) 160 no limit 
Card Reader (decimal) 80 no ltmit 
Card Puneh (binary) 160 no limit 
Card Puneh (decimal) 80 no limtt 
Magnette Tape, Disk, 120 no limit 


Drum 


These device characteristics may be changed where applicable 
(e.g., number of characters per line for magnetic tape may be 
changed) by ustng the procedure SYSPARAM desertbed tn part C 


of thts sectton. 


The layout procedures are used to desertbe non-standard operations 
which are to take place during input and output. The procedures 
need not be called, in whitch case certain standard operattons 
(desertbed wtth each procedure) will be in effect. The technique 


for using the layout procedures ts as follows: 
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Layout Procedures (contd) 


The programmer declares a set-up procedure containing any or all 
of the etght layout procedures (FORMAT, HLIM, VLIM, HEND, VEND, 
NO DATA, TABULATION, BAD DATA). At some potnt tn the program 
there ts a call to an I/O transmisston procedure whitch has as one 
of tts parameters the procedure tdentifier of this set-up procedure. 
At the time the I/O procedure ts called tt causes the set-up 
procedure to be executed thus establishing the non-standard opera- 
ttons. Each time a new I/O transmtssion ts called, the standard 
layout operations will be resumed until changed by a new set-up 


procedure. 
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BAD DATA 


PURPOSE: To indicate the procedure which ts to be called when a request 
ts made for an item to be transmitted, and the ttem ts tncom-. 


pattble with the format character. 
FORM: BAD DATA (p) 


ps: procedure identifier 


RULES: 
1, This procedure appltes only to tnput. 


2. If a translated format (anything but 1,R,E or L) ts used and 
the referenced field te not compattble, control wtll be trans- 


ferred to procedure p. 


3. If BAD DATA ts not used and the condition deseribed tn Rule 2 
arises, control will be transferred to the end of the program 
as though a dummy label had been placed just before the final 
'END', ; 


EXAMPLES: 
1. BAD DATA CCHECK) The procedure CHECK ts 
used when tneorrect data 


appears on the tnput device. 
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BAD DATA (contd) 


"BEGIN! 

'PROCEDURE' REDO; OUTLIST (6,LAY,LIST); 

BAD DATA CREDO);... When an tneompattbtility 

"END! ; occurs, control goes to 
procedure REDO which outputs 


an error message. 
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PURPOSE: 


FORM: 


RULES: 


FORMAT 


To desertbe the form in whtch data appears on the input 


device or ts to appear on the output device. 
FORMAT (string) 


string: a string with a 


spectal form 


The format string ts composed of a series of ttems separated 


by commas. 


The string ts interpreted from left to right tn econjunectton 


with a list of data ttems which are to be transmitted. 


These data ttems usually appear tn a separate procedure called 


a ltst procedure. 


An ttem tn the format string may descrtbe a number, a string, 
or a Boolean quantity, or tt may stmply cause a title to be 


written or page alignment to take place. 


The following rules desertbe the vartous kinds of format items. 


Number formats 


a. Integers 
1) hts format item consists of a sertes of Z's, a sertes 
of D's, or a sertes of Z's followed by D's each corre- 
sponding to a@ digit position of the number, and an 


optional sign. 


S152 -= 


2) 


3) 


4) 


5) 


FORMAT (contd) 


The letter D ts used to tndicate a digit whtch is 
always to be printed, 

(ex, 385 when written wtth format DDDD will appear 
externally as 0885.) 


The letter Z is used to indicate that the correspond- 
tng digit ts to be suppressed if it ts a leading zero. 
In this case, a zero digit will be replaced by a blank 
space when all the digits to its left are zeros. 

(ex. 21 when written with format ZZZ will appear 
externally as #21.) 


A series of Z's or D's may be wrttten in a shorthand 
notatton as follows: nZ or nD (where n ts an integer) 
ts equivalent to ZZZ...Z or DDD...D (n times). 

(ex, 3Z and ZZZ are equtvalent. 4D and DDDD are 


equtvatent. ) 


An opttonal sign may precede or follow the Z's and 

D's of a number format. 

If no stgn appears, the number is assumed to be posttive. 

Note: If a negative number ts output wtth no stgn 

posttton, the first digit positton will print as $,A,B, 
..,. representing the digits 0,1,1,...,9 respectively. 

If a plus sign appears, the correct sign of the number 

appears on the external medtun. 

If a minus sign appears, posttive numbers will be 

unstgned and negative numbers wtll have a minus sign 


on the external medtun. 
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6) 


7) 


8) 


FORMAT (contd) 


If a preceding stgn ts to appear externally wtth 
a number which has had leading zeros suppressed, the. 
stgn will be placed immediately to the left of the 


first non-zero digit. 


The total number of postttons whtch an tnteger 
oceuptes on the external medium ts the sum of 

the Z's and D's (plus one tf the optional stgn 
appears). If the fteld wtdth ts itnsuffictent to 
hold the complete number, the high order digits 
are transmitted and the leftmost digtt posttton 
will be t,J,K,...,R according as the actual digtt 
ts 0,1,2,...,9. If, in addition to the above 
eonditton, the field is also unstgned and the number 
ts negative, the leftmost postition will be +,/,5,T, 
..-,4 representing the digits is 0,1,2,...,9 


respectively. 


Examples of integer formats: — 

If +ZZDDD ts used with 2176, tt appears as $+2176. 
If -ZZZDD ts used with 3, tt appears as PPPP03. 
If -DDDD ts used with -45, tt appears as -0045. 
If ZZZ ts used with 0, tt appears as PPP. 

If ZZD ts used wtth 0, tt appears as PPO. 

If 2Z4D+ ts used with 390, tt appears as Pf0390+. 


Dectmal Numbers 


1) This format ttem consists of Z's and/or D's each 


corresponding to a digtt posttton, a pertod (.) 
or the letter V to tndtcate the postitton of the 


decimal potnt, and an opttonal sign. 
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2) 


3) 


4) 


5) 


6) 


FORMAT (eontd) 


The letter Z has the same functton it did for 
integers and itt may appear only to the left of 


the decimal potnt. 


The letter D may appear on both sides of the point 


and has the same funetton as for integers. 


If a. ts used to tndicate the decimal potnt post- 
tton, tt wtll appear on the external medium tn that 
posttion. If the letter V ts used tt merely indicates 
where the decimal potnt should be, but no space ts 


used on the external medtum. 


The stgn part funettons as tt did for integers. 


The total number of posttions which a decimal number 
ocecuptes on the external medium ts the sun of the 
Z's and D's plus one for the stgn, plus one tf the 
potnt ts indicated by a . in the format. If the 


fteld wtdth ts tnsufftetent to hold the complete 


number the htgh order digtts are transmitted and 
the leftmost digtt posttton wtll be se eee S| 
according as the actual digtt ts 0,1,2,...,9. If, 
tn additton, the fteld ts unstgned and the number 
ts negative, the leftmost posttton will be +,/,5,T, 
...,2 representing the digtts 0,1,2,...,9, respectively. 


=. 1957S 


7) 


FORMAT (eontd) 


Examples of decimal numbers: 
If ZZDD.DD ts used with 146.776, tt appears as f146.78. 


If -3D.D ts used with 1.2, tt appears as $001.2. 


If +3Z.3D ts used wtth .0042 it appears as BPpt+.004. 

If -ZZDVD ts used wtth -142.78, tt appears as -1428. 

If ZZ4D.DD- is used with -3394.7, it appears as 
BB3394.70-. 

If ZZD ts used with 29.756, it appears as #30. 

If .3D- ts used with -.0254, tt appears as .025-, 


Decimal Numbers with Exponent 


1) 


2) 


3) 


4) 


5) 


This format item ts the same as that for a decimal 
number with the addittton of an exponent part to 
tndtcate the power of ten to whtch the number must 


be ratsed to give the true decimal number. 


The exponent part consists of an apostrophe (') to 
separate it from the decimal number followed by an 


opttonal stgn, a sertes of Z's and/or a series of D's. 


The ' will appear on the external medium in the 
proper posttton to separate the dectmal number and 


tts exponent. 


The rules for the exponent part are the same as those 


for integers. 


A number ustng thts format will appear externally 
with tts leading digit not zero. The exponent is 
adjusted accordingly. If the number is zero the 


exponent ts also set to zero. 
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FORMAT (contd) 


6) If a nonzero number has a zero exponent which ts 
spectfted by Z's the ' and the exponent sign are 


also suppressed. 


7) The total number of postttons needed on the external 
medtum ts the sum of all the Z's and D's plus one 
for the sign, plus one for the exponent stgn, plus 
one for the ' plus one for the dectmal potnt (tf 


. ts spectfted). 


8) Exanples of decimal numbers with exponents: 
If 3D.DD'+DD zs used with 3075.2, tt appears as 
307.52'+01, 
If D.DD'-ZZ ts used wtth 7.1, tt appears as 7.10PPPP. 
If ZZD'+ZD ts used with .021758, tt appears as 
218 'p-4, 
If DD'ZZ ts used with 35,649, tt appears as 36PPP, 
If .3D'+2D ts used with 917.2, tt appears as .917'+03. 
If .DD'-ZZZ ts used wtth .000312, tt appears as 
. 51 Bp-3. 


Octal Numbers 

1) The form of thts ttem ts nO or 00...0 (n times) where 
n ts an tnteger which spectfies the number of digits 
tn the octal fteld. 


2) For output tf n<12, the leftmost n digits will be 
transmitted; tf n>12, 12 digits will be transmitted 


followed by n-12 blanks. 


3) For tnput tf n<12, the next n characters are trans- 


mitted; tf n>12, the next 12 characters are transmitted. 
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- FORMAT (eontd) 


4) Examples of octal numbers: 
If 50:ts used with 447521767511 on output, tt appears. 
as 44752, 
If 140 ts used with 712342165134 on output, tt appears 
as 712342165134¢p. 
If 150 ts used with 754162314521744 on input, it 
appears as 754162314321 tnternally. 


Truncation for Number Formats 

a. The integer or dectmal number formats described above may 
be followed by the letter T to indicate that the output 
should be truncated instead of rounded. Rounding occurs 


when truneatton ts not spectfted. 


b. Examples of truncatton: 
If -2Z3D.2DT ts used with -12.719, tt appears as PP-012.71. 
If 3ZDT+ ts used with 145.6, tt appears as p14ot. 
If -Z.D0T'+ZZ ts used with .012537, tt appears as #1.2'f-2. 


Insertions in Number Formats 
a. All of the number formats may have either blanks or strings 
inserted anywhere wtthin the format ttem. The tnserttion 


wtll appear on the external medium. 


b. A blank ts denoted by the letter B. If more than one blank 
ts destred it may be expressed by a sertes of B's or by 
the shorthand notation nB (n ts an tnteger spectfying the 
number of blanks.) 3B ts equtvalent to BBB. 


e. <A string whitch ts to be inserted must be enclosed in string 
quotes (t.e. "string\). If the string ts to be repeated 
tt may appear as n"string\ where n ts an integer specifying 
the number of times the string ts to appear. The tnforma- 
tion tn the string (not ineluding the outermost quotes) is 


inserted in the corresponding place tn the number. 
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FORMAT (contd) 


d. Examples of inserttons: 

If D2B3D ts used with 3972, tt appears as 3PP972. 

If “ANS=\4D ts used wtth 271, tt appears as ANS=0271, 

If "INTEGERZPART\-4ZVB'"'FRACTION\B2D ts used with -195. 7634, 
tt appears as INTEGERBPARTP-195 BFRACTIONB76. 

If 2ZB2D.DBT'+DD ts used with 44865.5, tt appeare as 
44686. 56 '+01. 

If "OCTALB\5O ts used with 112233445566, it appears as 
OCTAL#11223. 


9. Numbers for Input 


a. Numbers whtch are tnput ustng the above format codes 
should, tn general, appear the same as those which are 
output. 


b. However, there are fewer restrictions on the form of 
tnput numbers. 

1) Leading zeros may appear even tf Z's are used tn the 
format code. Leading blanks may appear even tf D's 
are used. 

2) If tnsertion strings or blanks are used in the 
format code the corresponding number of characters 


on the input device are sktpped. 


3) If a stgn ts spectfted at the left in the format 
code tt may appear tn any Z or D postttions on the 
tnput device as long as tt ts to the left of the 
first digit. If the sign ts spectfted at the 


right, it must appear exactly where it ts indicated. 
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FORMAT (contd) 


10. String Format 


Ae 


This format ttem ts used to output string quantities. 
It may not be used for tnput. Alpha format must be 


used tnstead. 


The form of thts ttem ts nS or SS...S (n times), where 

nts an tnteger which tndtcates the number of symbols 

tn the string. | 

1) If the actual string ts longer than the number of 
S's tndteated, only the leftmost symbols are trans- 
mitted. 


2) If the string is shorter, blank symbols are added 
to the right of the string. 


3) Examples of string format: 
If S ts used wtth "A\, tt appears as A. 
If 6S ts used with "TOTALS\, it appears as TOTALS. 
If SSS ts used with "ABC\, tt appears as ABC. 
If 4S ts used with "PROGRAM\, tt appears as PROG. 
If 5S ts used with "CAT\, tt appears as CATPP 


11. Insertions in String Format 


a. 


Blanks or strings may be tnserted in the § format. 
The rules are the same as described for number formats. 
Examples: 


If B3SBB2S ts used with "12345\, it appears as P123pP45. 
If 2S"=\3SB ts used with "TIANS\, tt appears as T1=ANSP. 
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FORMAT (contd) 


12. Alpha Format 


a. hts format ttem ts used to transmit ALGOL baste symbols.,. 
(see INTRODUCTION for a ltst of baste symbols.) 


b. 1) The form of this ttem ts the letter A. 


2) The appearance of the letter Aas a format ttem 
causes transmtsston of a single symbol from or to 


the data ttem spectfied in the ltst procedure. 
3) The symbol wtll be stored as an integer. 


ec. It may be destred to work with symbols transmitted by 
the A format. Therefore, a funetton ts provided whtch 
makes any ALGOL symbol type ‘INTEGER' and causes the 
symbol to have the same value as tf tt had been read 


tn ustng Alpha format. 


d. The funetton ts called EQUIV. Its argument must be an 
ALGOL baste symbol enclosed in string quotes, t.e., 
EQUIVC''BEGIN'\). 


e. Example: 
If A format ts used to read an "*" into variable ALG the 
statement 'IF' ALG 'EQ' EQUIV C'\) 'THEN' 'GO TO!. GOOD 
wtll check that '"™" was in fact the symbol which was read 


in, 


18. Boolean Format 


a. Thts format ttem ts used to transmit Boolean quantities. 


b. The ttem may constst of the letter P or the letter F. 


Coie 


FORMAT (contd) 


e. If P ts used and the quantity is true, the number 1 is 


transmitted; tf false, 0 ts transmitted. 


d. If F ts used and the quantity is true the word 'TRUE' 
transmitted; tf false the word 'FALSE' ts transmitted. 


e. Input must be tn the form spectfied in ec. and d. 


14. Inserttons tn Boolean Format 


a. Blanks or strings may be inserted in the Boolean format. 


b, The rules are the same as desertbed for number formats 


and for strings. 


e. Examples: 
If BBPB ts used with a Boolean variable whose value ts 
'TRUE', tt appears as PpIP. 
If "THEZRELATIONZIS\BF ts used with a Boolean vartable 
whose value ts 'FALSE', it appears as THEBRELATIONPISP' FALSE’. 


15. Standard Format 
a. A number may be transmitted for input or output wtthout 
specifying tn a format item the exact form the number ts 
to take. The number appears on the I/O device in "standard 


format." 


b. If the letter N appears as a format ttem, tt speciftes 


that a number with standard format ts to be transmitted. 


e. Standard format for tnput may be defined as follows: 
1) Any number of digits tn any of the forms which are 
acceptable to integer or dectmal number formats may 


be tnput. 


Sine = 


FORMAT (contd) 


2) The number must be terminated by an tllegal character, 
t.@., one not normally permitted in a number, or by 
k blanks where k ts a system parameter initially set 
at one. k may be changed by calling the system proce- 
dure SYSPARAM (described itn Section C.). 


If standard format ts invoked, and the first ltne referenced 
contains any legal character for a number (t.e., digit, 

stgn, decimal potnt or apostrophe) the right hand margin 

wtll terminate the nunber. If, however, the first line 
contains only nonlegal number characters, the subsequent 

lines will be searched until a legal number character ts 

found. At thts potnt the rtght hand margin ts not stgntficant, 
and only an tllegal character or k blanks wtll terminate 


the number. 


Standard format for output will appear as though the 
deetmal number format -.16D'+DD had been invoked. 


Standard format wtll be assumed if the end of a format 
string ts reached while there are data items tn the ltst 
procedure still to be transmitted. In thts case all the 
remaintng quantities will be transmitted with standard 


format. 


If a list of variables ts to be terminated but either 

1) no reference ts made to a FORMAT procedure, or 

2) the format call has the form FORMAT C''\) 

the ttems wtll be transmitted according to standard format. 


se ES 


16. 


re 


FORMAT (contd) 


Untranslated Format 


Qe 


If a quantity ts to be transmitted using the internal 
machine notatton, a format ttem may constst simply of 


an lan RaneEorantl. 


The letter to be used is determined as follows: 
I for integers, 

R for real numbers, 

E for extended real numbers, 


L for Boolean quantittes. 


Quantittes whitch are written out ustng thts format must 


be read in ustng the same format. 


Altgnment Marks 


Qe 


These are single characters whtch cause spectfte page 
operattons to occur. 


The operattons are: 


/ go to next line 
+ go to new page 
J go to next tabulation posttton. 


Altgnment marks may appear as part of any format ttem. 

If they appear at the left of the item the actions take 
place before the format operation. If they appear at the 
right, they take place afterwards, 7.e., /3S+ causes a 
sktp to a new line before the string is transmitted and 


a sktp to a new page after. 


ai tip 


18, 


FORMAT (contd) 


Alignment marks may also appear as separate format items 


simply by eneclostng them tn commas. 


Any number of altgnment marks may appear in successton, 
and thts causes the specitfted actton to be repeated as 
many times as tt ts indicated, t.e., ttt causes a page 

to be terminated and two pages to be sktpped. Also any 
mark may be preceded by an integer n, where n tndicates 
the number of times the action ts to be done, t.2@., 4d 
causes a skip to the fourth tab posttton and ts equivalent 
to Juduu. 


Title Format 


a. 


Thts format item ts used when tt ts destred to cause page 
alignment and/or the output of tnsertton strings wtthout 
transmitting any ALGOL quantities. 


Thts item conststs entirely of insertions and altgnment 


marks and refers to no data items. 


On tnput thts item causes characters to be skipped corre- 
sponding to the tnsertton strings and causes the destred 


altgnment operattons to be performed. 


On output the insertion strings are transmitted and the 


altgnment operations are performed. 


Examples of title format: 

tISUMMARY\// indicate a new page, an insertion, a line 

to be termtnated and a line to be skipped. 
/"AMT\J"'GROSS\U"NET\// tndtcates a new line, an tnsertton, 


a tab, an insertton, a tab, an tnsertion, a line to be 


skipped. 


= GH5 


19, 


20, 


EXAMPLES: 
vi 


2. 


FORMAT (contd) 


All the format items listed above constitute a format string. 


Any format ttem or any group of format ttems can be repeated 


any number of times by enclosing in parentheses those items 


to be repeated and preceding the parentheses by an integer 


n tndicating the number of repetttions destred, t.e., 3C2Z.D) 


causes 8 decimal numbers to be transmitted. If no integer 


precedes the parentheses an infintte number of repetitions 


ts tndteated. 


FORMATC"4D, 2D, 2Z, /P, 
"TSBTHEZANS\ +, A\) 


FORMATC"7S ,2(5Z.D'+ZZ, F), 2U\) 


She = 


Thts format string transmits 

a decimal number and an 
integer on one line; on the 
next line ts a Boolean quantity 
spectfted by a0 oral 
followed by an tnsertton. 

Then a skip ts made to a 

new page and an ALGOL symbol 

ts transmitted. 


A seven symbol string tis 
transmitted followed by a 
decimal number, a Boolean 
quantity, a deetmal number, 
a Boolean quantity. Then 


two tabulations occur. 


3}. 


FORMATC''CZZ.BDT-, BBB+ZZD)\ ) 


2-1h7 = 


FORMAT (contd) 


A deectmal number and an 
integer are transmitted 
an indetermtnate number 
of times, t.e., wntil the 
ltst of data ttems ts ex- 
hausted. 


PURPOSE: 


FORM: 


RULES: 


FORMAT 1 


To desertbe the form tn which data appears on the tnput 
device or ts to appear on the output device; to permit 
certain elements of the format string to be variable and 
to have their values caleulated at the time the FORMAT 


procedure ts called. 
FORMAT n(string, LipLose+eyX,) 


n: tnteger 
string: string with a 
spectal form 


LisLogee+g%,2 expression 


n may be 0,1,2,...,9. This value tndtcates the nunber of 
x's whteh appear following the format string. 
(Note: The form FORMAT (string) as discussed previously 


ts stmply a spectal case of this format call in whtch n=0.) 


The form of the string ts the same as that dtscussed for 
the procedure call FORMAT (string), wtth certain additional 


features. 
The string may contatn the letter X in vartous format ttems. 


The values of the x's whteh follow the format string will 
replace each X when the FORMAT procedure ts called. 


eae 


FORMAT n (contd) 


4, The letter X may appear tn the format string as follows: 


a. 


In a Number Format: 
Any Z or D may be preceded by the letter X to indicate 


a variable number of repetitions of the Z or D. 


Examples: 
XZXD - vartable integer stze 
ZZ.XD - variable number of dectmal places 


.DDD'XD - variable exponent size 


In an Insertton: 

The letter B may be preceded by an X to indicate a vari- 
able number of blank spaces on output or a vartable number 
of tgnored postttons on input. 

Example: 

2ZXB3D.D 


In a String Format: 

The letter S may be preceded by the letter X to indicate 
a vartable number of symbols in the string. 

Examples: 

XS 

BXSB4S 


With an Altgnment Mark: 

+,/ or J may be preceded by the letter X to indicate a 
vartable number of times the spectfied alignment actton 
ts to be taken. 

Examples: 

XJDD.DD - vartable number of tabulations 


“3S2BX/ - vartable number of lines to be skipped 


a 1h9-s 


FORMAT x (contd) 


5. The X's may be used at most 9 times in a single format string. 
The tnteger n tn the format call indicates the number of X's 
whtch appear in the string. 

6. The Lrsoy++eyh,, tn the format call represent the tntegral 
values to be asstgned to the X's tn the string. Lys Los+e+ sk, 
must be postttve. Ls ts asstgned to the first X whtch appears; 
Lo to the second, ete. 

EXAMPLE; 
FORMAT 3 C''ZZXD.D,XBXS\,2,A-5, BD The dectmal number wtll be 


transmitted as though tt 
had been written as Z222D.D. 
A-5 blanks wtll precede 
the string which wtll con- 


tatn B symbols. 
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PURPOSE: 


FORM: 


RULES: 


HEND 


To spectfy the procedures whtch are to be called when the 
end of a line ts reached during input or output; to permtt 
spectal action to be taken depending on what sttuation 


causes the end-of-line condition to occur. 
HEND (p1,p2,p3) 


pl,p2,p3: procedure identifier 


pl +s the name of the procedure to be called when a "/" 
appears tn the format call. This tndicates that a new line 


ts to begin and ts constdered the normal case. 


p2 ts the name of the procedure to be called when a group 


of characters ts to be transmitted or a tabulatton is 
spectfted whitch would pass the right margin of the current 


line as specitfted by HLIM. 


ps ts the. name of the procedure to be called when a group 
of characters ts to he transmttted or a tabulation is 
spectfied whtch would pass the physical end of the line 

due to the characteristics of the I/O device being used, 

but would not pass the right margin as set by HLIM. 

Note: This physical end is specified by standard limits set 
wtthin the system or a control card to the system, and may 
be altered by procedure SYSPARAM. 
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EXAMPLES: 


Ls 


oe 


HEND (contd) 


If tt ts destred to take no spectal actton when the end 


of a line ts reached this procedure call may be omitted. 


If action ts destred for some but not all of the conditions, 
dummy procedure names may be used for those requiring no 
actton. 


HEND CNORM, OVER, END) a "/" in the format call. 
causes control to go to 
Procedure NORM; tf the 
right margin ts reached 
control goes to OVER; tf 
the physical end-of-line 
ts reached control goes 
to END. 


"BEGIN'...'PROCEDURE' DUMMY;;... Stnee Procedure DUMMY 

». END CDUMMY,FIN,NEXT);...'END' contains no statements, 
no spectal actton will 
be taken when a "/" 
appears tn the format 
eall. 
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HLIM 
PURPOSE: To spectfy the left and right margins of the input or 
output lines. 
FORM: HLIM (left, vight) 


left, right: arithmetic expression 


RULES: 
1. The first paraneter spectfies the left margin. 
2. The second parameter specifies the right margin. 
3. There ts a restrictton that 1 < left < right. 


4, If thts procedure call ts not gtven,the left margin is set 


to one and the right margin ts set to infinity. 


EXAMPLES: 
1. HLIM (5,50) Left margin ts 5, right 
margin ts 50, 
2. HLIM CJ-4,K) Left margin ts value of 


J-4, right ts value of K. 
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NO DATA 


PURPOSE: To tndteate the procedure whitch ts to be called when a 
request ts made for data on an input device but no more 


data remains. 
FORM: NO DATA (p) 


p: procedure tdenttfier 


RULES: 
1. Thts procedure call applies only to tnput. 


2. If input data is requested by a data transmtsston proce- 
dure when no data remains on the input device, control 


wtll be transferred to procedure p. 


3. If NO DATA ts not used and the conditton deseribed in 
Rule 2 arises, control will be transferred to the end of 
the program as though a dummy label had been placed just 
before the final 'END'. 


EXAMPLES : 
1. NO DATA CEOF) The procedure EOF is 
used when no data exists 


on the tnput device. 
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NO DATA (contd) 


"BEGIN' When no data ts found on 

"PROCEDURE' LAST; 'GOTO' FIND; the tnput device, control 

ae goes to procedure LAST 

NO DATA CLAST);... | whteh sends control to 

"END! the statement labelled 
FIND, 


a 55 


TABULATION 


PURPOSE: To set the width of the tabulation field of the I/O device; 
to permit the skipping of a fixed number of postttons when- 


ever the altgnment mark J appears in a format call. 


FORM: TABULATION (a) 


a: artthmette expresston 


RULES: 


1. "a" specifies the number of characters of the foreign 
medtum whieh constitute the tabulation field. 


2, If the left margin ts at posttton X, the tab positions for 
a line are: 
X, Xta, X+2a, X+8a, ... , Xtka 
The last tab posttton oceurs before or at the same potnt 
as the right margin as spectfited by HLIM, or at the physical 


end of the line, whichever is smaller. 


3. When a "J" appears in a format call, the I/O device ts 
spaced to the next tab posttton. 


4, If this procedure call ts not given the tabulatton spacing 


ts one. 
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EXAMPLES: 
a 


os 


TABULATION (15) 


TABULATION CAt2-B*C) 


= Ab) = 


TABULATION (eontd) 


A new tab posttton occurs | 


every 15 spaces. 


The value of A’-BC 
determines the tab 


spacing. 


PURPOSE: 


FORM: 


RULES: 


VEND 


To speetfy the procedures which are to be called when the 
end of a page ts reached during tnput or output; to permit 
spectal actton to be taken depending on what sttuation 


causes the end-of-page condttton to occur. 
VEND (p1,p2, p3) 


pl1,p2,p3: procedure tdentifier 


pl ts the name of the procedure to be called when a "+" 
appears tin the format call. This tndtcates that the subse- 
quent information ts to appear on a new page, and ts con- 


stdered the normal case. 


pe ts the name of the procedure to be called when a group 
of characters ts to be transmitted whtch would appear on 
the line after the one specified by VLIM as the bottom 


margin. 


ps ts the name of the procedure to be called when a group 
of characters ts to be transmitted which would pass the 
physteal end of the page due to the characteristics of the 
I/O device being used, but would not pass the bottom 
margin set by VLIM. Note: Thts phystcal end ts specified 
by standard limits set within the system or a control ecard 
to the system, and may be altered. by procedure SYSPARMM. 
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VEND (eontd) 


4, If tt ts destred to take no spectal actton when the end of 


a page ts reached this procedure call may be omitted. 


5. If action is desired for some but not all of the conditions, 


dummy procedure names may be used for those requiring no 


aetton. 


EXAMPLES : 
1. VEND CNEW,PAGE 1, PAGE 2) 


2. 'BEGIN'...'PROCEDURE' EMPTY;;... 
..VEND COK, FIX,EMPTY);... "END! 


~ 159 - 


Control goes to procedure 
NEW when a "t" appears in 
the format call; to PAGE 1 
when the bottom margin ts 
reached and to PAGE 2 when 
the physical end of the 
page ts reached. 


No aetton ts taken tf an 
attempt ts made to write 
beyond the end of the page. 


PURPOSE: 


FORM: 


RULES: 


EXAMPLES : 
dy 


VLIM 


To set the vertical layout of a page; to spectfy how many 


lines on a page are to be used. 
VLIM (top, bottom) 


top, bottom: arithmetie expresston 


The top line of the page has a value of 1, the second, 
2, eta. 


The first parameter indicates the first line to be used for 


transmtsston. 
The second parameter tndtcates the last line to be used. 
There ts a restriction that 1 < top < bottom. 


If thts procedure call is not given, the first line ts set 


to one and the last line ts set to infinity. 


VLIM (10,50) Data transmission starts 
on line 10 and ends on 
line 50, 
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Be 


VLIM (1, TOTAL) 
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VLIM (eontd) 


Data transmisston starts 


on the first line of a 


page, and ends on the line 


spectfied by the value of 
TOTAL. 


Examples of Layout Procedures: 


1. 'PROCEDURE' SET; 
"BEGIN! 

FORMAT C"3D.2D\); 

'IF' A 'EQ' Bt+2 'THEN' 

"BEGIN! 
FORMAT C''ZZZ\); 
TABULATION (5) 

"END! ; 


VLIM C'IF' A 'EQ' B+2 'THEN' 5 


'ELSE' 10,50) 
"END! 


oN "PROCEDURE' LAYOUT ; 
"BEGIN! 


FORMATC'+,100CZZD.D,BBD.D'DD), 


/\); 
HLIMC5,60); 
HENDCGOOD, OVER, OVER) 

"END! ; 


"PROCEDURE' GOOD; HLIMC5,60); 
"PROCEDURE' OVER; HLIMC15,60) 
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If A=B" the second format 
call wtll overrtde the 
first, a TAB of 5 will be 
set and the verttcal margins 
will be (5,50). If AB” the 
first format will be tn 
effect the TAB will be 1 

and the vertical margins 
will be (10,50). 


Whenever line overflow occurs 
procedure OVER wtll change 

the horizontal margins. 

When the "/" in the format 
call ts reached, procedure 
GOOD will restore the ortginal 


margins. 


Data Transmtsston Procedures 
These procedures handle the actual transmission of data for input 
and output. 


In calling these procedures it ts necessary to spectfy the I/0 
device whtech ts to be used for the transmission. For the GE 
625/635 operating system a GECOS file control card ts required to 


tndteate the devices to be used. 


Files used by ALGOL are restricted to the numeric file codes 014 
to 40,5. 95 ts the standard input file and 06, the standard output 
ftle. These two files do not require file control cards in order 
to be used. Unless redefined, file 05 indicates GECOS file I*;06 


tndteates GECOS file P*. Error messages will thus be written on 06. 


The point in a program at which the actual I/O procedure ts called 
ts when the transmisston of data occurs. Layout procedures, tf any, 
and a list procedure, tf any, will be called by the internal I/0 


procedures. | 
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PURPOSE: 
FORM: 
RULES: 
dc 
Ze 
3. 
4, 
EXAMPLES: 
Ee 


INLIST 


To tndieate that data ts to be transmitted for tnput; 
to speetfy the input device, the set-up procedure and the 


list procedure. 
INLIST (A194o9 23) 


arithmette expresston 


: procedure tdenttfter 


a, ts the file number from the GECOS file card which indteates 


the spectfte input device to be used. 


| Lo ts the name of the set-up procedure containing the layout 


procedure calls. 


az ts the name of the list procedure which contains the data 


ttems to be transmitted. 


When INLIST ts executed, itt first calls the layout procedures, 
then transfers back and forth to the list procedure while the 
actual input is taking place. See Appendix 3 for a detatled 
explanatton of INLIST. 


INLIST €05, ABC, INPT) This statement causes input 
to take place on I/O device 
5 according to the layout 
procedures in procedure ABC 
and according to the list 


procedure INPT. 
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2.  'BEGIN' 'PROCEDURE' START; 


"BEGIN! 
FORMATC''+, A, D.D'DD/, ZDD,P\); 
VLIMC2, 50) 

TEND. sys: 

"PROCEDURE' LIST COK); 

'BEGIN' 

OKCALPHA); OKCBOY); OKCCOUNT); 

OKCBOOL) 

_ TEND'3... 
INLIST C7,START,LIST);... 


"END! 
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INLIST (contd) 


Thts program transmits a 
symbol tnto ALPHA, a real 
number tnto BOY, an integer 
into COUNT and a 0 or 1 
tnto BOOL. 


PURPOSE: 


FORM: 


RULES: 


INPUT 


To tndicate that data ts to be transmitted for input; 
to provide for data input without using layout procedures 


or a list procedure. 
INPUT (A, StYING, C15@ +0452) 


n: tnteger 
a: artthmette expresston 
string: format string 
C72Coser092,3 vartable or subsertpted 


n 
vartable 


ais the file nunber from the GECOS file card which indicates 


the input device to be used. 


The format string ts in the sane form as the format call 
FORMAT (string), t.e., no'X's are allowed in the string. 


C722 os+++9@, are the actual data items to be transmitted 


according to the format string given. 


n may have the value 0,1,2,...,9 and indicates the number of 


data items. 


The equivalent of thts procedure call in terms of INLIST 


ts as follows: 
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INPUT n (contd) 


"BEGIN' 'PROCEDURE' LAYOUT; FORMAT (string); 
'PROCEDURE' LIST CITEM); 
"BEGIN' ITEM (e,); ITEM (e,);...3 
ITEM (e ) 
n 
"END! ; 
INLIST (a,LAYOUT, LIST) 
‘END! 


6. When the only layout procedure requtred ts FORMAT and when 
there are nine or fewer ttems to be transmitted, thts simpler 


tnput call may be used instead of INLIST. 


EXAMPLES: 
1. INPUT 6 C05, "CZD.D)4\, This transmits 6 values 
A[1], A[2], AL3], A[4], A[5], Al6]according to the repeated 
format ZD.D 
2, INPUT 2 C07,"'P,F\, B[1], B[2]) This transmits 1 or 0 tnto 
B, and 'TRUE' or ‘FALSE! 
into Bo. 
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PURPOSE: 
FORM: 
RULES: 
t, 
2. 
Se 
4, 


OUTLIST _ 


To indicate that data ts to be transmitted for output; 
to spectfy the output device, the set-up procedure and 


the list procedure. 
OUTLIST (21359 Az) 


a4: artthmette expresston 


AosAgi procedure tdentifter 


3 


a, ts the file number from the GECOS file card whtch tndtcates 


the speetfie output device to be used. 


Lo ts the name of the set-up procedure containing the Layout 


procedure calls, 


az ts the name of the ltst procedure whtch contains the data 


items to be transmitted. 


When OUTLIST ts executed, it first calls the layout procedures 
then transfers back and forth to the list procedure while the 
aetual output ts taking place. See Appendix 3 for a detailed 
explanatton of OUTLIST. 
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EXAMPLES: 
1, OUTLIST (€10,PAGE, LIST) 


2.  "BEGIN' 'PROCEDURE' SET; 
FORMATC''3D.D, BZZD, 2B3S/\); 
"PROCEDURE' OUT (A); 

"BEGIN! 
ACTOTAL) ; ACINTEGER) ; AC"ANS \ > 
TEND? 's5 ce 
OUTLISTC6,SET,OUT);... 
"END! 
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OUTLIST ° (contd) 


Thts statement causes 


output to take place on 


I/O device 10 according 


to the layout procedures 
tn procedure PAGE and 
according to the list 
procedure LIST. 


Thts program causes the 
values of the two vartables 
TOTAL and INTEGER and the 
string ANS to be written 


out on devtce 6. 


OUTPUT n 


PURPOSE: To ¢~dieate that data ts to be transmitted for output; 
to provide for data output without ustng Layout procedures 
or a ltst procedure. 


FORM: OUTPUT n (a,string, CrrGoreees e 


n: tnteger 
a: artthmette expresston 
string: format string 
C722oseeege, 2 artthmette expresston, 
Boolean expresston or 


string 


RULES: 


1. ats the file number from the GECOS file ecard whitch tndicates 
the output devtce to be used. 


2. The format string ts in the same form as the format call 
FORMAT (string), t.e., no X's are allowed in the string. 


os C122 ose++9@, are the actual data items to be transmitted 


according to the format string gtven. 


4. n may have the value 0,1,...,9 and indicates the number of 
data items. . 
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OUTPUT n (contd) 


5. The equivalent of thts procedure call in terms of OUTLIST 


ts as follows: 


"BEGIN' 'PROCEDURE' LAYOUT; FORMAT (string), 
"PROCEDURE' LIST CITEM); 
'BEGIN' ITEM (e,); ITEM (e,);...; 
ITEM (e,) 
"END" s 
OUTLIST (a,LAYOUT,LIST) 
"END! 


6. When the only layout procedure required ts FORMAT and when 
there are nine or fewer ttems to be transmitted, this 


stmpler output call may be used instead of OUTLIST. 


EXAMPLES : 
1. OUTPUT 3 (€06,''3C2ZD.DD)\,A,B, C) This statement wtll cause 
3 values of A, B and C to 
be transmitted to device 


6 according to the format 


given. 
2. OUTPUT 5 (09,"2C(D.D'ZZ), 35, This statement will cause 
2BSS,I\, Xt2-3,Y+2-3,"TOT\, 2 decimal numbers, 2 strings 
"A1\, COUNT) and an tnternal notatton 


integer to be transmitted. 
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C. Input/Output Control Procedures 


These procedures access system parameters and allow some control 


over the postttoning of the I/O devices. 
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PURPOSE: 


FORM: 


RULES: 


EXAMPLE: 


POSITION 


To posttton the specified file to the indteated page and line. 
POSITION (24325323) 


21225323! arithmetic expression 


e, represents the file from the GECOS file card. 
2p ts the page number. 


ez ts the line number. 


‘Thie procedure may be used in conjunction with SYSPARAM to 


record information on a file and later make reference to it. 
At a particular potnt tn a progran, a call on SYSPARAM can 

be used to record the current position ona file. Ata 

later time, tf it ts desired to return to that point in the 
file a call on POSITION gtving the relevant page and line 
numbers for parameters ey and ez wtll reposttion the file to 
the destred point. Note: Backpostttontng on a unit record 
device ts undefined; however, such positioning ts meaningful — 
for a unit record logical device which ts asstgned to a 
magnetite tape (other than SYSOUT). 


POSITIONC4, A-5,B) . Device 4 will be spaced so 


that tt ts prepared to access 
the line spectfted by the value 
of B on the page spectfted by 
the value of A-5. 


ae ee 


PURPOSE: 
FORM: 
RULES: 
wae 
2: 
3. 


SYSPARAM 


To gain aecess to certain system parameters so that they 


may be modifted. 
SYSPARAM (27549323) 


Asp! avithmette expression 


Az: tnteger vartable 


The system parameters whtch may be changed or read out are: 
a. The character, line and page potnters (p, p' and p") 
respectively. 


b. The "standard format" constant determining the number 


of spaces between items (k). 
e. The phystcal end of line (P) and the physical end of 
page (P') which are characteristic of the I/O dectve. 


a, ts the file number from the GECOS file card specifying 


the I/O device concerned. 


A, may have: a value of 1, 2,0«0igdd. | 

Ge If the value Of a ts 1,8,5,7,9 or 11, the value of the 
system parameter in question ts assigned to variable a,. 

b. If the value of Lo ts 2,4,6,8 or 10, the value of az 


becomes the new value of the system parameter. 
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4, 


C. 


SYSPARAM (contd) 


The action ts as follows: 


tf a, = id. ax*p LP Ay = os p+a., 
tf a, = 3, az*p! yf A, = 4, p'*az 
tf Ay = 5; az+P i ay = 6, Ptaz 
Sa Ay = 7; axP! tf A, = 8, P!*a, 
tp a, = 9, atk of a, =10, ka. 


if a, =11, a,*p" 


p and p' represent actual positions on the I/O device whtch are 


to be changed when Aa, = 2 and a, = 4. 


a. 


a 


2 


If Ay = 2, p ts tested to see tf p<az. If tt ts, blanks 


are inserted until p=a If p2az5 a skip to the next 


3° 
line ts performed, p ts set equal to 0, and blanks are 
inserted until p = A zs 
If Ay = 4, p' ts tested to see tf p'<az. If tt ts, lines 


are advanced until p' = Az. If p!2az, a skip ts made 
to a new page, p' ts set equal to 0, and lines are 


advanced until p' = az. 


= 6 and a, = 8 change the physical limits of the I/O device 


(P and P') where this is posstble (t.e., magnetic tape block 


length may be changed and unit record devices may have physical 


limtts reduced, but not extended beyond the standard limtts). 


If the ltmits cannot be changed and these acttons are spectftied, 


the statement acts like a dunmy statement. 


= 17> = 


EXAMPLES: 
he 


SYSPARAM (contd) 


A, may also have a value of 21 or 22 

a. If the value of Ay ts 21, the ftle denoted by a, ts defined 
as an input ftle. 

b. If the value of ay ts 22, the file denoted by a, ts defined 
as an output file. 

e. If the value of Ae ts 21 or 22, the value of a ts not 
stgntficant. 


The conditton whitch requires a, = 21 or 22 only artses when the 


tntended first action ona sees file uses a primitive 
procedure or procedure SYSPARAM. If thts ts the case, the system 
does not know the nature of the file and thus a call to SYSPARAM 
with a, = 41 or 22 would serve to define the file. e.g., If 
the ftrst actton with respect to file 6 ts to read out the value 
of p by a call to SYSPARAM such as 

SYSPARAMC06, 1, CHAR) 
thts eall would have to be preceded by a call to SYSPARAM 


defining 06 as an output file as follows: 


SYSPARAMC06, 22, 0) 

SYSPARAM (8, 3,LINENO) On device 8 the value of the 
line pointer ts assigned 
to vartable LINENO. 

SYSPARAM (5,10, 3) For device 5 the value of 


k ts changed to 3, t.e., 3 
or more blanks must follow 


a number tn standard format. 
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Primitive Procedures 
These procedures are tneluded in the ALGOL language to allow the 
other Input/Output procedures to be written in ALGOL. 


They are avatlable for use by the programmer but are not tntended 
to be general purpose routines. 


ae Ne eas 


INSYMBOL 


PURPOSE: To assoctate spectfie ALGOL symbols with spectfte integers; 
to read in a baste symbol from an external device as an 


integer. 
FORM: INSYMBOL (e, s, v) 


e: arithmetic expression 
(called by value) 
s: string 


v: tnteger variable 


1. The baste symbols contained tn the string "s" are given 


integer values. 


2. The symbols are asstgned from left to right to the posttive 


tntegers 1,2,3, ete. 


3. This procedure acts as follows: 

a. It reads tn the next symbol from the input device. 

b. If tt ts a baste symbol whitch appears in the string "s", 
the vartable v will be asstgned the integer value 
assoctated with thts symbol. 

e. If it ts a baste symbol which does not appear tn the 
string "s", v wtll recetve a value of 0.— 

d. If the tnput symbol ts not an ALGOL baste symbol, v wtll 


recetve a value of minus one. 
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INSYMBOL (contd) 
If there ts no more data on the input devtce, v will 
recetve a value of minus two. 
If the string "s" ts null, t.e., INSYMBOL (e,"\,v), 


v wtll recetve the standard system value for the baste 


symbol. (See Appendix 5). 
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PURPOSE: 


FORM: 


RULES: 


LENGTH 


To calculate the length of a given string. 
LENGTH (s) 


s: string 


The result of this procedure ts an tnteger. 


It ts equal to the number of baste symbols tn the string "s" 


not tneluding the outermost pair of string quotes. 
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NAME 


PURPOSE: To permit the saving or "remembering" of labels and procedure 


tdenttfiers. 
FORM: NAME (V 49 Vos) 


Vi2Voi tnteger vartable 
a: statement label 


p: procedure tdenttfier 


RULES: 


de. cdg oF has a value of 1, the tnteger assoctated with a ts 


asstgned to Vo. 


2 If v, has a value of 3, the: integer associated with p ts 
asstgned to Vo. 


Sex Lf oF has a value of 2, control wtll be transferred to the 
label whose value is the same as that of Vo. 
(Note: v, must have been assigned the value of a label by 
a prevtous NAME statement.) 


If v, = 0 the program will be terminated. 


4, If oF has a value of 4, control will be transferred to the 
procedure whose tdenttfier has the same value as Vo. 
(Note: V,. must have been assigned the value of a procedure 
tdentifter by a previous NAME statement.) 
If v, = 0 the procedure will be a duminy procedure. 
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NAME (eontd) 


The assoctatton of spectfic integers with labels and 
procedure tdentifters holds only in the block tn whtch the 
labels or tdentifters are declared, t.e., the rules of 


scope for ALGOL block structure are obeyed. 
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OUTSYMBOL 


PURPOSE: To assoctate ALGOL baste symbols with spectfie integers; 
to write out a baste symbol on an external device from 


an tnternally stored integer. 


FORM: OUTSYMBOL (215 8, eo) 
2792p! aritthmette expresston 
(ealled by value) 
s: string 
RULES: 


1. The baste symbole in the string "s" are given integer values, 


2. The posttive integers 1,2,38, ete. are assigned to the symbols 
from left to rtght; leftmost = 1, next = 2, ete. 


3. This procedure acts as follows: 

a. It evaluates 25 and determines the tnteger which is 
elosest to thts value. 

b. If the value has an equivalent in string "se", the baste 
symbol corresponding to thts value will be written on 
the. output device. 

e. If the value has no equivalent in string "a" by being 
outstde the bounds of the string, or tf tt ts not a 
baste symbol, the symbol # will be written on the output 
device. | 

d. If the string "a" ts null, i.e., OUTSYMBOL Cer N 25s. 
the standard system values are used to determine the 
baste symbol whitch will be written on the output device. 
(See Appendix 5.) 
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STRING ELEMENT 


PURPOSE: To enable the scanning of a given string (actual or formal) 


tn a machine tndependent manner. 
FORM: STRING ELEMENT (85507389905) 


84985: string 


V12VoF vartable 


RULES: 


1. Vartable v4 determines which symbol of 84 ts referenced, 7.ée., 
tf v= 1 it ts the leftmost symbol; if v,= 4, the next, ete. 


2. Once the symbol ts chosen, tts associated integer is assigned 
to vartable Vo. . 
(Note: the assoctated integer ts determined by encoding string 


8, as was done with the string tn the procedure INSYMBOL.) 
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TYPE 


PURPOSE: To determine the type of a number whtch is to be written 
out tn standard format. 


FORM: TYPE (V43Vo) 


v4: vartable 


1 


Vo: vartable or string 


RULES: 


De de Vo ts a string, v, ts set equal to 4. 


1 


ae Af Vo ts a vartable, v, ts asstgned a different value 


depending on the type of Vy as follows: 
a. Ifv, is ‘INTEGER', v, 
bs: -TF Vo ts ‘REAL’, v4*8. 
ec. IPf v, ts 'BOOLEAN', v,+3. 


If v, ts ‘EXTENDED REAL', v_~8. 


+1, 
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E. List Procedure 
Thts procedure ts written by the programmer to be used with the 
I/O procedures provided by ALGOL. 
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PURPOSE: 


FORM: 


RULES: 


List procedure 


To ltst a sequence of quantities to be transmitted for input 
or output; this list ta used tn conjunction with the format 
ttems of a FORMAT eall. 


"PROCEDURE' name (ident); s 


name: procedure tdenttfter 
ident: tdenttfier 
s: simple statement, 
compound statement or 
block 


The formal parameter "tdent" appears in the body of the list 


procedure as a procedure tdenttfier. 


Each ttem to be transmttted for input or output appears in the 
procedure body as the parameter for procedure tdent. 
Example: 

'PROCEDURE' ACX); 'BEGIN' XCM); XCN); XCP) ‘END! 


M, WN and P are transmitted. 


When the list procedure ts called by a data transmission proce- 
dure (INLIST or OUTLIST), an internal system procedure (INITEM 
or OUTITEM) wilZ be the actual parameter corresponding to the 
formal parameter "tdent," and thus wtll be substttuted for 
"tdent" in the list procedure body. 
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EXAMPLES: 
1. 


List procedure (contd) 


Executton of the ltst procedure causes the internal system 
procedure (INITEM or OUTITEM) to be executed. INITEM or 
OUTITEM has as tts parameter the item to be transmitted. 


Thts parameter may be an arithmetic expression, Boolean 
expresston or a string for output. However, the parameter 


may be only a variable or subseripted variable for input. 


The ttem ts called by name by the internal system procedure 


and tts value ts transmitted for tnput or output. 


The sequence of statements in the list procedure body deter- 
mines the sequence in whitch the ttems are transmitted for 


tnput or output. 


All ALGOL statements are permtsstble in a ltst procedure 


tneluding a call to one or more of the layout procedures. 


"PROCEDURE' LIST CNAME); The tdenttfier NAME is 
"BEGIN' NAMECX); NAME CY+3*Z); replaced by a system proce- 
NAME C'TOTAL\) ‘END! dure name when the ltst 


procedure ts called. X,Y+38*Z 
and "TOTAL\ are parameters 
to this system procedure and 


thetr values wtll be trans- 


mitted. 
"PROCEDURE' MANY CITEM); The items to be transmitted 
'FOR' I<] 'STEP' 1 "UNTIL! are A,,B7sA.Bos+++344 9234p 


10 'DO' 'BEGIN' ITEM CA[I]); 
ITEM CB[I]) ‘END! 
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APPENDIX 1 
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The following ltst enwnerates reserved tdentifiers. 


RESERVED IDENTIFIERS 


These tdenttfy 


funettons and procedures which are avatlable wtthout explicit declara- 


ttons. These funettons and procedures are assumed to be declared in a 


block external to the progran. 


However, a programmer may redeclare a 


reserved tdenttfter, in which case the reserved meaning ts superseded. 


The reserved tdentifiers are as follows: 


ABS 
ARCTAN 
BAD DATA 
COs 
ENTIER 
EQUIV 
EXP 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
HEND 


owen DW fF WN NO F&F OO 


HLIM 
INLIST 
INPUT 0 
INPUT 1 
INPUT 2 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 9 
INSYMBOL 
LENGTH 
LN 

NAME 

NO DATA 
OUTLIST 
OUTPUT 0 
OUTPUT 1 


on OW FW 
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OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 
OUTPUT 9 
OUTSYMBOL 
POSITION 
SIGN 

SIN 

SQRT 
STRINGELEMENT 
SYSPARAM 
TABULATION 
TYPE 

VEND 

VLIM 


ON DW LF WNW BD 


“APPENDIX 2 
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MATHEMATICAL FUNCTIONS 


Form Desertptton 

ABS (Ce) absolute value of the expression e 
ARCTANCe) prinetpal value of the aretangent of e 
cosCe) costne of e 

ENTIERCe) the integral part of e 

EXPCe) exponential function of e 

LNCe) | . natural logarithm of e 

SIGNCe) sign of e (+1 tf e>0, 0Oife = 0, -1 tf exo) 
SINCe) sine of e 

SQRTCe) square root of e 


These functtons are available without explicit declarations. They are 
assumed to be declared in a block external to the program. However, 
a programmer may redeclare a mathematical funetton tdenttifier, tn whtch 


ease the standard meantng ts superseded. 
These functions accept parameters of types 'REAL', ‘EXTENDED REAL' and 
"INTEGER'. They all yteld values of type ‘EXTENDED REAL', except for 


ENTIERCe) and SIGNCe) whtch yield values of type 'INTEGER'. 


The parameters of these functions are treated as 'VALUE' parameters. 
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“APPENDIX 6 


= 93. 


DETAILED EXPLANATION ‘OF INLIST 


Let us assume: 
1. INLIST has been called. 


2. Lines 1,2,...,p' of the current page have been read. 


3. Characters 1,2..,p of the current line (line p'’ + 1) have 
been read. 


4, At the begtnning of the program p =p! = 0, 
5.. Symbols P and P' denote line stze and page size respectively. 


6. There are eight hidden variables H1, H2,...H8 whtch correspond 
to the etght layout procedures as follows: 


H1 - FORMAT 

H2 - H LIM 

Hd - V LIM 

H4 - H END 

Ho - V END 

H6 - TABULATION 
H7 — NO DATA . 


H8 - BAD DATA 


7. The left margin of H LIM ts L. 
The right margin of H LIM7@s R. 
The top margin of V LIM?¢s L’. 
The bottom margin of V LIM ts R'. 


LAG ies 


STEP 1, (Intttaltzattion) 
The hidden variables are set to standard values: 
H1 ts set to the "standard" format. | 
H2 ts set so that L=1, R=», 
H3 te set so that L' = 1, R' = a, 
H4 is set so that the three parameters are all effectively equal 
to the dummy procedure defined as follows: 'PROCEDURE' DUMMY; ;. 
HS ts set so that the three parameters are all effectively 
| equal to the dumny procedure, DUMMY, 
H6 ts set so that TAB = 1. 
H7 ts set to terminate the program in case the data ends. 
H8 ts set to terminate the program tf an unacceptable character 


ts recetved for format translation, 


STEP 2. (Layout) 

The layout procedure ts called; this may change some of the variables 

H1, H2, H3, H4, H5, H6, H7, H8. Set T to 'FALSE'. (TI ts a Boolean vari- 
able used to control the sequencing of data with respect to title formats; 
T = 'TRUE' means a value has been requested of the procedure which has 


not yet been input.) 


STEP 38. (Communtcatton with List Procedure) 

The next format ttem of the format string ts examined. (Note: after 
the format string ts exhausted, "standard" format its used from then on 
unttl the end of the procedure. In particular, tf the format string 

ts "\, standard format is used throughout.) Now tf the next format item 
ts a tittle format, that ts, requires no data ttem, we proceed directly 
to Step 4. If T = 'TRUE', proceed to Step 4. Otherwise, the list 
procedure, ts activated. This ts done the first time by calling the 


list procedure, using as actual parameter a procedure named IN ITEM. 
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This ts done on all subsequent times by mere Ly returning from the proce- 
dure IN ITEM whtech will cause the list procedure to be continued from the 
latest IN ITEM call. (Note: the tdenttfter IN ITEM has scope local to 

IN LIST so a programmer may not call this procedure directly.) After the 
ltst procedure has been activated in thts way, tt will either terminate 

or wtll call the procedure IN ITEM. In the former case, the input process 
ts completed; tn the latter case, T ts set to 'TRUE'. Then any assignments 
to htdden variables that the list procedure may have invoked will cause 
adjustment to the vartables H1, H2, H3, H4, H5, H6, H7, H8, (whtch are 
local to IN ITEM). We then continue at Step 4. 


STEP 4, (Altgnment Marks) 
If the next format item tneludes alignment marks at its left, remove them 
from the format and execute process A (a subroutine below) for each "/", 


process B for each "+", and process C for each "J". 


STEP 5. (Get within Margtns) 


Execute process G to ensure proper page and line alignment. 


STEP 6. (formatting for Input) 


Take the next ttem from the format string. 


NOTES: 

In unusual cases, the list procedure or an overflow procedure may have 
called the desertptive procedure FORMAT thereby changing the format 
string. In such cases, the new format string ts examined from the 
beginning; and tt ts conceivable that the format ttems examined in 

Steps 3, 4, and 6 might be three different formats. But at this point 
the current format item ts effectively removed from the format string 
and copted elsewhere so that the format string ttself, posstbly changed 
by further calls of FORMAT, wtll not be tnterrogated unttl the next 
occurrence of Step 8. 
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Altgnment marks at the left of the format ttem are tgnored. If the 
format ttem ts not composed only of altgnment marks and insertions, the 
value of T ts examined. If T = 'FALSE', undefined actton takes place 
(the programmer has substituted a nontttle format for a title format 

in an overflow procedure, and thts ts not allowed). Otherwise, T ts 

set to 'FALSE'. If the format ttemis "A" or "N", set s = 1 and go 

to Step 7; otherwise, the number of characters, s, needed to input the 
format ttem for the present medium ts determined, and tt ts assumed that 
the same number of character postttons wtll be used in the tnput medium 


for this ttem. 


STEP 7,. (Cheek for Overflow) 

If the present ttem uses "N" format, the character positions p + 1, 

p + 2,... are examined unttl either a proper termination of the number 
has been found, or posttton min (R,P) has been reached with no stgn, 
digtt, decimal point, or "'" encountered. In the former case, set s to 
the number of character posittons oceupted by the number, tnecluding 
preceding and embedded blanks and the terminatton character, and then 


go to Step 9; tn the latter case, go to Step 8 wtth p = min (R,P). 


If the present ttem uses "A" format, the character posttton p + 1 ts 
examined, tf tt contains "y", set p = min (R,P) and go to Step 8, 
otherwise input characters starting from posttion p + 1 unttl a baste 
symbol has been input. Set s to the number of characters denoting the 
baste symbol and go to Step 9. Finally, tf netther "N" nor "A" format 


ts used, go to Step 8 or Step 9 according as p + s > min (R,P) or not. 
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STEP 8, (Processing of Overflow) 
Perform process H (p + s),. Then proceed as follows: 
"Ny" format: Input characters until either finding a number followed 
by a proper terminatton (go to Step 9) or until reaching postition 
min (R,P). In the latter case, a partial number may have been 
examined; repeat Step 8 unttl a number properly terminated has been 
input. In the former case, set s to the number of postttons occupted 
by that portton of the number lying to the right of p, including 


embedded blanks and the termination character, then go to Step 9. 


"A" format: Input characters as with "N" format unttl a baste 
symbol has been input. (Thts baste symbol necessarily takes several 


character positions on the medium.) 


Other: If p+s<Randp+s <P, go to Step 9; otherwise input 
k = mtn (R,P) - p characters, set p = min (R,P), decrease s by k, 
and repeat this step. 


STEP 9. (Fintsh the Item) 

If netther "A" nor "N" format ts being used, tnput s characters. Determine 
the value of the item that was tnput here, or Steps 7 and 8 in case of 

"A" or "N" format, ustng the rules of format. Asstgn thts value to the 
actual parameter of IN ITEM unless a tttle format was spectfied. Increase 
p by s. 


Any altgnment marks at tne right of the format item now cause activation 
of process A for each "/", process B for each "t", and process C for each 
"J", Return to Step 3. 
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PROCESS A. ("/" Operation) 


Cheek page altgnment with process F, then execute process D and call 
procedure pl of H END. - 


PROCESS B. ("t" Operation) 
If p > 0, execute process D and call procedure p1 of H END. Then execute 
process E and call procedure p1 of V. END. 


PROCESS C. ("J" Operatton) 

Check page and line alignment with process G. Then let k = ((p -L + 1)% 
TAB + 1) x« TAB +L - 1 (the next "tab" setting for p), where TAB ts the 
"tab" spactng for thts channel. If k > min (R,P), perform process H(k); 
Kz 


otherwise sktp over character postttons until p 


PROCESS D. (New Line) 


Skip the tnput medium to the next "Line," set p = 0, and set p' =p' +1. 


PROCESS E. (New Page) 
Skip the tnput medium to the neat "page," and set p = 0. 


PROCESS F. (Page Altgnment) 

If p' +1 < L', execute process D until p' = L' - 1. 

If p' +1 > R', execute process FE, call procedure p2 of V END and repeat 
process F, 

iy p' +1 > P', execute process EF, call procedure pé3 of V END and repeat 
process F, 

This process. must terminate because 1<L'<R' and1<L'<P'. Ifa 


programmer chooses a value of L' > p', Lt ts set equal to 1. 
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PROCESS G. (Page and Line Altgnment) 

Execute process F. Then, 

If p +1 < L, sktp over character posittons until p+1=L. 
Ifp+i1>Rorp+i1>P, perform process H (p + 1). 

Thts process must termtnate because 1<L<Rand1<L<P. Ifa 


programmer chooses a value of L > P, L ts set equal to 1. 


PROCESS H(k). (Line Overflow) 

Perform process D. If k > R, call procedure p2 of H END; otherwise 

call p3. Then perform process G to ensure page and line altgnment. 

Note: Upon return from any of the overflow procedures, and asstgnments 

to htdden variables that have been made by calls on descriptive procedures 
will cause adjustment to the corresponding vartables H1, H2, H3, H4, H5, 
H6, H7, H8. 


EXAMPLE: 

Notice that the programmer has the ability to determine the presence of 
absence of data on a card when ustng standard format, because of the 

way overflow ts defined. The following program, for exanple, will count 
the number n of data ttems on a single tnput card and will read them into 


Afi], A[2],...,A[n]. (Asswne wit 5 te a card reader.) 


"PROCEDURE' LAY; H END (EXIT, EXIT, EXIT); 
"PROCEDURE' LIST CITEM); ITEM CA[N+1]); 
'PROCEDURE' EXIT; 'GO TO' L2; 

N<0; LI: INLIST (5, LAY, LIST); 

N<N + 1; 'GO TO! LI; 

L2c 
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DETAILED. EXPLANATION OF OUTLIST 


Let us assume: 


1, 


2. 


OUTLIST has been called. 
Lines 1,2,...,p' of the current page have been completed. 


Characters 1,2,...,p of the current line (line p' + 1) have 


been completed. 
At the beginning of the program p = p' = 0. 


Symbols P and P' denote the ltne stze and page stze respec- 
tively. 


There are eight hidden variables 'H1,H2,...,H8 which correspond 
to the etght layout procedures as follows: 


H1 - FORMAT 

H2 - H LIM 

H3 - V LIM 

H4 —- H END 

H5 - V END 

H6 - TABULATION 
H7 - NO DATA 


H8 - BAD DATA 


The left margin of H LIM te L. 
The right margin of H LIM ts R. 
The top margin of V LIMis L'. 
The bottom margin of V LIM ts R', 
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STEP 1. (tntttaltzatton) 
The hidden vartables are set to the following standard values: 
H1 ts set to the "standard" format. 
H2 ts set so that L=1, R=”, 
H3 ts set so that L' = 1, R' =», 
H4 ts set so that the three parameters are all effectively equal 
to the dummy procedure defined as follows: ‘PROCEDURE’ DUMMY; ;. 
HS ts set so that the three parameters are all effectively equal 
to the dummy procedure, DUMMY. 
H6 ts set so that TAB = 1. 


STEP 2,. (Set-Up) 

The set-up procedure ts called; this may change some of the variables 
H1, H2, H3, H4, H5, H6. Set T to 'FALSE'. (2. ts a Boolean vartable 
used to control the sequencing of data with respect to title formate; | 
T = 'TRUE' means a value has been transmitted to the procedure whtch 
has not yet been output.) 


STEP 3. (Communication with List Procedure) 

The next format ttem of the formt string ts exantned. (Note: after 

the format string ts exhausted, "standard" format ts used from then 

on until the end of the procedure. In parttcular, tf the format string 
ts "\, standard format ts used throughout.) Now tf the next format ttem 
ts a tittle format, that ts, requires no data ttem, we proceed directly 
to Step 4. If T = 'TRUE' proceed to Step 4. Otherwise, the list proce-'. 
dure ts activated; this is done the first time by calling the list 
procedure, using as actual parameter a procedure named OUT ITEM; this ts 
done on subsequent times by merely returning from the procedure OUT ITEM, 
which wtll cause the list procedure to be continued from the latest 

OUT ITEM eal. 
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(Note: the tdentifter OUT ITEM has scope local to OUT LIST, soa 
programmer may not call thts procedure directly.) After the list 
procedure has been activated in this way, tt will either terminate 
or will call the procedure OUT ITEM. In the former case, the output 
process ts completed; in the latter case, Tis set to 'TRUE' and any 
asstgnments to hidden variables that the list procedure may have 
tnvoked will cause adjustment to the vartables H1, H2, H3, H4, H5, H6é 
(whitch are local to OUT ITEM) and we then continue to Step 4. 


STEP 4. (Altgnment Marks) 
If the next format item ineludes alignment marks at its left remove them 
from the format and execute process A (a subroutine below) for each "/", 


process B for each "4", and process C for each "J", 


STEP 5. (Get Withtn Margins) 


Execute process G to ensure proper page and line altgnment. 


STEP 6. (Formatting the Output) 
Take. the next ttem from the format string. 


NOTES: 


In unusual cases, the list procedure or an overflow procedure may have 


called the desertpttve procedure FORMAT, thereby changing the format 
string. In such cases, the new format string ts examined from the 
beginning, and itt ts conceivable that the format items examined in 
Steps 3, 4, 6 might be three different formate. But at thts potnt the 
eurrent format ttem ts effectively removed from the format string and 
ecoted elsewhere, so that the format string itself, posstbly changed 
by further calls of FORMAT, wtll not be interrogated until the next 


occurrence of Step 3. 
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Altgnment marks at the left of the format item are tgnored. If the 
format item ts not composed only of alignment marks and inserttione, 

the value of T ts examined. If T = 'FALSE', undefined action takes 
place (the programmer has substituted a nontitle format for a title 
format in an overflow procedure, and thie ta not allowed). Otherwise, 
the output ttem te evaluated and T te set to 'FALSE'. Now the rules 
of format are applted, and the characters X pears whtch represent the 
formatted output on the external medium are determined. (Note that 

the number of characters, 8, may depend on the value betng output, 
using "A" or "S" format, as well as on the output medium.) 


STEP 7.. (Check for Overflow) 

Ifp'+s<Randp+s <P, where s ts the size of the ttem as deter- 
mined tn Step 6, the ttem will fit on this line, so go on to Step 3. 
Otherwise, tf the present item uses "A" format, output a spectal symbol 
"vy" whteh ts recognizably not a baste symbol; this ts done to ensure 


the tnput wtll be inverse to output. Go to Step 8. 


STEP 8. (Processing of Overflow) 

Perform process H (p +s). Then, if p+s<Randp+t+e <P, go to 
Step 9; otherwise let k = min (R,P) - p. Output X,X,...X,, set p = min 
(R,P) and then let XXX, 4 = Xp, t App oeeedg- Decrease 8 by k and 
repeat Step &. 


STEP 9. (Finish the Item) 
Output X,Xo...X., and itnerease p by s. Any alignment marks at the right 
of the format item now cause activation of process A for each "/", 


process B for each "+t", and process C for each "J", Return to Step 8. 


2p pts 


PROCESS A. ("/" Operation) 
Cheek page altgnment with process F, then execute process D and call 
procedure p1 of HEND. 


PROCESS B. ("t+" Operatton) 
If p > 0, execute process D and call procedure pl of HEND. Then execute 
process E and call procedure p1 of VEND. 


PROCESS C. ("J" Operation) 

Cheek page and line alignment wtth process G. Then let k = ((p-It1) % 
TAB + 1) x TAB +L - 1 (the next "tab" setting for p), where TAB ts the 
"tab" spacing for this channel. If k > min (R,P), perform process H(k); 
otherwise effectively insert blanks until p = k. 


PROCESS D. (New Line) 
Sktp the output medium to the next "Line," set p = 0, and set p' = p' +1. 


PROCESS E. (New Page) 
Sktp the output medtum to the next "page," and set p' = 0. 


PROCESS F. (Page Alignment) 

If p' +1 < L' execute process D until p'=L'-1. If p'+1>R', 
_xecute process E, call procedure p2 of V END, and repeat process F. 
If p' +1 > P', execute process E, call procedure p3 of V END and 
repeat process F. 

Thts process must terminate because 1< L' < R' and1 <I Pt. Ife 


p-ogrammer chooses a value of L' > P', L' ts set equal to 1. 
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PROCESS G. (Page and Line Altgnment) 

Execute process F. Thenifp+i1< L, effectively output blank spaces 
until p+1=L, 3 3 
If p+i1>Rorp+i1 > P, perform process H (p +1). 

Thts process must terminate because 1<L<Rand1<L<P. Ifa 


programmer chooses a value of L > P, L ts set equal to 1. 


PROCESS H(k). (Line Overflow) 

Perform process D If k > R, call procedure pe of H END; otherwise, 
eall procedure p3 of H END. Then perform process G to ensure page and 
line altgnment. Note: upon return from any of the overflow procedures, 
any asstgnments to hidden variables that have been made by calls on 
descriptive procedures will cause adjustment to the corresponding 
vartables H1, H2, H3, H4, H5, H6. 
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PROCEDURES FOR PREPARING ALGOL PROGRAMS 
FOR COMPILATION AND EXECUTION 


An ALGOL comptlatton will consist of etther a block or a procedure 
declaration. In the first case what ts produced ts a free-standing 
program whtch may call external procedures but which ts assumed to 
operate otherwise as a free-standing program. In the second case 
the result ts a separately comptled procedure whtch may be called 


by another program. 


In etther case, the progran ts keypunched and submitted to the 
625/35 computer following a control ecard of the form: 
col. 1 . 8 16 


§ ALGOL OPTIONS 
where the following opttons are allowed 
LSTIN An tnput listing wtll be furntshed 
NISTIN No tnput listing wtll be furnished 
DECK A binary program deck will be output 


NDECK No binary program deck will be output 
COMDK A comdeck of the source program will be output 
NCOMDK Wo comdeck of the source progran will be produced 


where the underlined opttons are assumed tn the absence of tnformation 


to the contrary. 


For the case tn whitch a procedure ts being comptled by ttself, tt ts 
posstble to redefine the procedure name for purposes of external refer- 
ence. This ts accomplished by ustng the ALGOL word 'RENAME' followed 

by a string of stx or fewer characters which defines the destred external 
name OY SYMDEF, The vename string may constst only of alphabettecs, 
numertes and the decimal potnt. Thts construct, tf used, must tmmedtately 


follow the formal paraneter list. 
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EXAMPLE: 
col. 1 8 16 
$ ALGOL OPTIONS 
"PROCEDURE! INPUT OCuntt, string); 'RENAME' "',AOIPT ; 
'VALUE' untt; "INTEGER! untt; 
"BEGIN! 


The above example defines the beginning of the job deck for a proce- 
dure, INPUT 0, being comptled by itself. Within this procedure all 
references to ttself, as in recurstve calls or passage as an actual 
parameter, would be to INPUT 0. The symbolic for a SYMREF in any 
other program destring to reference this procedure would have to be 
-AOIPY. 


To run an ALGOL executton activity the following deck setup ts requtred: 


$ OPTION ALGOL, opttons 
{ binary decks or ALGOL comptlations 
as defined above 
EXECUTE 


$ 
{ $ FFILE } 
§ < Physical device assignment > 


The § OPTION card with option ALGOL ts requtred for every execution 
activity containing at least one deck produced by the ALGOL compiler. 
It must be the first card of the execution activity. Other opttons, 
as destred, may be used on this card but ALGOL ts required. 


The § FFILE and < Physteal device assignment > cards are enclosed in 
braces to tndicate they may or may not be required for a parttcular 
activity. Cards of the form $ TAPE, DISC, PRINTER (as destribed in 

the GECOS manual) define phystcal devices which are to be assoctated 
with files. referenced in the ALGOL program through calle on the input 
output data transmission procedures. A card of thte type ts required 
for every referenced file other than 05 and 06 and input files produced 
with the $ DATA card. 
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The § FFILE card, as described in the GECOS manual, provides fine control 
over the charactertstics of each logical field. With respect to an 
ALGOL acttvtty, the optton DSTCOD should be constdered. It ts of the 
form: 


DSTCOD/XXX 

where XXX may be any of the following: 
Mnemonte Device 
PRNTR Line Printer 
BCRDR Card Reader (Binary) 
DCRDR Card Reader (Decimal) 
BCPNCH Card Punch (Binary) 
DCPNCH Card Puneh (Decimal) 
MTAPE Magnetic Tape 
DISC Disk 
DRUM - Drum 


The desttnatton code subfield (DSTCOD) defines the type of logical device 
which ts to be assoctated with a file, independent of the phystcal devtce 
on whitch the file may restde. In thts way the system limits, t.e., P 
and P' fora file are defined. For example, to produce a listing file 
whtch must be saved on tape for future reference a $ TAPE ecard would 
provide the physical assignment and $ FFILE nn, DSTCOD/PRNIR would define 
the output as destined for a line printer. In the absence of the FFILE 
ecard or the DSTCOD subfield the logteal device will be assumed the same 
as the phystecal device. 
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BASIC SYMBOLS WITH EQUIVALENT INTERNAL INTEGER VALUES 


SYMBOL VALUE SYMBOL VALUE 
A 32 GQ? 163 
3) 308 'GR! 164 
Cc 34 ™NQ! 159 
D 35 TEQV! 154 
E 36 ‘IMP! 156 
F 37 "OR! 156 
G 38 "AND! 157 
H 39 "NOT! 158 
I 40 , 511 
J | , 172 
IK 42 ; 178 
L 43 ; 176 
M 44 C 152 
N 45 ) 174 
@) 46 [ 153 
p 47 ] 173 
Q 48 " 182 
R 49 \ 183 
S 00 ! o10 
T ol + 144 
U 52 p 181 
V 08 "ARRAY! 134 
W 54 "BEGIN! 128 
Xx a3) "BOOLEAN' 138 
Y o6 "CODE! 140 
z o7 * COMMENT 180 
0 0 "po! 148 
1 1 "ELSE! 151 
2 2 "END! 1765 
3 3 "EXTENDED REAL' 131 
4 4 "FOR' 1438 
5 rs) 'GO TO! 142 
6 6 Te 149 
7 7 "INTEGER! 132 
8 8 "LABEL' 138 
9 9 "NONLOCAL' 141 

"TRUE! 009 "OWN! 129 

"FALSE! 510 "PROCEDURE ! 135 
+ 165 "REAL! 130 
- 167 "RENAME! 184 
x 168 'STEP* 145 
/ 169 "STRING' 139 
% 170 "SWITCH! 136 
+ 171 "THEN! 150 

ES! 160 "UNTIL! 146 

'LQ? 161 "VALUE! 137 

‘EQ! 162 "WHILE' 147 
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24, 27 


Artthmetie expresston 
4, 24, 25, 26, 29 


Arithmette operators 
'ARRAY' 89, 92 


"ARRAY' declaratton 7, 88 
Array tdenttfter 20. .. 
Asstgnment statement ..6, 39 
Baste symbols 3, 178, 183 
'BEGIN' 9, 10, 121, 123 
Block 9, 10, 125 

'BOOLEAN' 89, 116. 
Boolean expresston 27, 29, 30 
"CODE! 108 

Comments 18 

Compound statement 121 


Conditional destgnator 31, 78, 112 
Condtittonal statement 6, 49 
Data transmtsston procedure 
Deetaratiton 3 
Destgnattonal expresston 
"po! Go, (G7. 70, 72 
Dummy statement Gy G2. 
"ELSE! 43, 45, 47, oa, o4, 56, 58, 60, 78 
"END! a; 10, 121, 123° 
Extended real number 22, 89, 116 
"FOR' statement 6, 64 
Formats for I/O 182 
numbers 182, 149 
tnteger 182 
decimal 134 
deetmal with exponent 
octal 187 
tnserttons 1388, 140, 
strings 140, 149 
alpha 141 
Boolean 141 
standard format 
untrans Lated 
altgnment marks 
tttles 146 
Funetton definttton 
‘GO TO' statement 6, 74 
tdenttfter 20, 128 
‘IF’ elause 27, 29, 43, 
56, 58, 60, 78 
I/O control procedures 127, 172 
I/O devices, physteal characteristics 
Integer 20, 89, 116 
Labels 50, 75, 63, 78, 112, 123, 
Layout procedures 126, 128, 162 
List procedure 127, 186 
Logteal operators 4, 27, 28, 29 
Logical values $8, 27 


126, 163 


31, 112 


136 


142, 149 


142 
144 


144, 149 


104 


ae 


45, 47, 50, 52, 54, 


"NONLOCAL' 109 
'OWN' 92, 118, 124 
Primitive procedures 
"PROCEDURE' declaration 7, 938 
Procedure identifier 20, 82, 94 
Procedure statement 6, 81 
Punetuation 4, 12 
Real number 21, 89, 116 
Relation operators 4, 27, 28, 29 
"RENAME! 110 
statement 8, 81 
'"STEP' clause 67,.72 
String 22, 84 
Subsertpted vartable 
"SWITCH! 112 
'"SWITCH' deelaratton 
Swtteh destgnator 
Swtteh tdentifier 
'THEN' 43, 45, 
56, 58, 
Type declaratton 
'UNTIL' 67, 72 
"VALUE! 100 
Variable 23, 24, 27, 116 
'WHILE' eZause 70, 72 
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